Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  624 1659 (N41E42 L=168)  1619    305        4 ( 571/1499- 661/1774) -33.7 E61-E30 N29-N49
      2 1097 1446 (N30W02 L=212)  1866    639        2 ( 926/1269-1344/1572) -29.5 E11-W19 N19-N37
      3  379 1396 (N20E51 L=159)   760    182        1 ( 363/1334- 423/1484) -42.0 E57-E45 N16-N25
      4 1738 1203 (N17W51 L=261)   532     72        2 (1716/1173-1762/1242)  63.4 W48-W53 N15-N19
      5 1535 1167 (N14W33 L=243)   241     51        0 (1515/1140-1556/1189) -56.3 W31-W34 N12-N15
      6 1763 1132 (N13W53 L=263)   369     50        1 (1740/1104-1781/1161)  36.9 W50-W54 N11-N14
      7 1824 1080 (N10W59 L=269)   489     67        1 (1808/1043-1844/1120)  68.2 W57-W62 N07-N12
      8 1750  857 (S04W53 L=263)   508      3        0 (1728/ 835-1773/ 879) -36.9 W50-W55 S05-S02
      9  907  741 (S16E06 L=204)   489    151        3 ( 854/ 674- 947/ 789)  60.3 E08-E03 S20-S12
     10 1838  715 (S13W68 L=278)  2021    162        4 (1802/ 649-1867/ 766) -76.0 W61-W78 S17-S09
     11 1732  646 (S18W57 L=267)   718     57        1 (1701/ 626-1763/ 670) -14.0 W53-W61 S19-S16
     12 1192  585 (S25W15 L=225)   318     95        0 (1148/ 571-1239/ 603)   9.5 W11-W17 S25-S23
     13  852  503 (S33E09 L=201)   288    101        0 ( 809/ 484- 903/ 522)  23.2 E11-E04 S34-S31
     14 1059  428 (S37W08 L=217)   398    135        0 ( 998/ 408-1125/ 446)  18.4 W03-W12 S39-S35
  

    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