Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  926 1662 (N33E25 L=270)  1303    194        4 ( 834/1618-1003/1725)  -7.1 E35-E19 N30-N35
      2  544 1664 (N24E54 L=242)   444     57        1 ( 527/1632- 562/1693) -59.0 E56-E51 N21-N26
      3  641 1651 (N25E45 L=251)   467     96        0 ( 591/1628- 691/1674)   0.0 E50-E39 N24-N26
      4 1481 1592 (N46W18 L=314)   420     89        0 (1455/1564-1519/1610)  15.9 W15-W22 N42-N47
      5  697 1553 (N20E35 L=261)   487    120        0 ( 670/1505- 721/1607) -60.3 E38-E33 N16-N23
      6  756 1492 (N18E29 L=267)   464    126        0 ( 723/1445- 783/1550) -74.1 E30-E27 N14-N21
      7  935 1394 (N16E14 L=281)   297     51        2 ( 909/1365- 963/1419)  63.4 E15-E12 N13-N17
      8  181 1202 (S11E68 L=228)  5126    240        7 ( 111/1107- 251/1300)  76.0 E80-E58 S17-S05
      9  288 1250 (S06E56 L=240)   449     68        1 ( 251/1236- 321/1268)   0.0 E59-E52 S07-S04
     10 1870 1158 (N27W61 L=357)   940     75        1 (1832/1126-1893/1194)  24.4 W55-W66 N24-N30
     11 1475 1104 (N13W25 L=321)   289     80        0 (1449/1059-1496/1138) -31.0 W22-W27 N10-N14
     12 1402  516 (S23W39 L=335)   483    129        0 (1388/ 465-1419/ 585) -49.4 W36-W42 S25-S18
     13 1643  500 (S17W60 L=356)   552     75        3 (1600/ 477-1670/ 526)  59.0 W56-W62 S19-S14
     14 1496  472 (S23W49 L=344)   547    110        1 (1467/ 427-1533/ 516) -81.9 W46-W50 S26-S19
     15 1043  231 (S53W35 L=331)   500     44        0 (1025/ 206-1065/ 263) -32.0 W31-W39 S55-S50
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y