Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  938 1778 (N43E21 L=167)   372     25        1 ( 917/1756- 960/1800) -31.0 E23-E18 N41-N45
      2  523 1722 (N33E53 L=134)   403     53        1 ( 506/1693- 543/1749) -45.0 E56-E49 N31-N35
      3  426 1527 (N18E50 L=138)  1086    169        1 ( 373/1470- 457/1603)  77.5 E52-E46 N14-N23
      4 1264 1459 (N24W09 L=196)   523     59        2 (1227/1424-1298/1494)  78.7 W06-W11 N21-N26
      5  443 1378 (N09E43 L=144)   677    143        2 ( 397/1326- 490/1445) -49.4 E46-E38 N06-N13
      6 1870 1263 (N23W61 L=249)  2821    294        4 (1747/1164-1931/1356) -20.9 W47-W72 N17-N26
      7 1328 1317 (N16W15 L=202)   339     93        0 (1282/1298-1378/1340)   0.0 W11-W17 N14-N17
      8  656 1225 (N02E25 L=162)   527    171        1 ( 590/1192- 726/1258)   0.0 E29-E20 N00-N03
      9 1119 1166 (N04W04 L=191)   389    125        1 (1078/1109-1154/1211) -39.8 W00-W06 N00-N06
     10  767 1043 (S08E16 L=172)   278     90        0 ( 740/ 994- 792/1077)  80.5 E16-E14 S11-S05
     11  892  907 (S15E06 L=181)   244    139        0 ( 834/ 877- 918/ 960)  51.3 E09-E05 S16-S11
     12 1545  870 (S07W35 L=222)   506     75        1 (1517/ 841-1578/ 908) -21.8 W32-W37 S08-S05
     13  839  777 (S23E08 L=179)   609    153        1 ( 778/ 753- 912/ 808)   6.3 E12-E03 S24-S21
     14 1479  718 (S17W34 L=221)   562    200        1 (1384/ 683-1569/ 740)  28.6 W27-W40 S20-S14
  

    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