Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  933 1659 (N33E25 L=270)  1211    183        3 ( 850/1610- 998/1708)  -4.1 E33-E19 N30-N35
      2  548 1661 (N24E53 L=242)   491     60        2 ( 531/1626- 569/1691) -59.0 E55-E50 N21-N26
      3  649 1648 (N25E44 L=251)   462     97        0 ( 602/1623- 698/1676) -10.3 E49-E38 N24-N26
      4  703 1553 (N21E35 L=260)   427    125        0 ( 675/1503- 726/1608) -54.5 E38-E32 N16-N23
      5 1482 1590 (N45W18 L=313)   369     63        0 (1458/1562-1513/1608)  59.0 W15-W21 N42-N47
      6  764 1491 (N18E28 L=267)   410    134        0 ( 731/1443- 790/1546) -81.9 E29-E26 N14-N21
      7  976 1410 (N18E13 L=283)   491    148        2 ( 921/1362-1036/1450)  63.4 E15-E09 N13-N21
      8  205 1212 (S10E64 L=231)  2939    200        8 ( 163/1125- 259/1301) -39.8 E73-E57 S15-S05
      9  137 1143 (S15E74 L=221)  1239    104        2 ( 112/1105- 166/1192)  45.0 E79-E68 S17-S11
     10 1875 1155 (N27W62 L=358)  1000     71        2 (1835/1122-1901/1191)  26.6 W56-W67 N24-N30
     11 1482 1102 (N13W25 L=321)   336    103        1 (1456/1051-1503/1148) -51.3 W23-W27 N10-N15
     12 1432  550 (S20W39 L=335)   838    222        2 (1394/ 464-1493/ 640) -80.5 W36-W43 S25-S13
     13 1502  469 (S23W49 L=344)   547    124        0 (1469/ 420-1542/ 513) -81.9 W47-W51 S26-S19
     14 1047  230 (S53W36 L=331)   489     46        0 (1028/ 206-1069/ 261) -26.6 W31-W40 S55-S50
     15 1125  224 (S51W43 L=338)   411     52        0 (1097/ 206-1143/ 253) -53.1 W38-W45 S52-S48
  

    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