Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1457 1615 (N38W43 L=300)  1035    246        3 (1349/1551-1552/1668)  10.9 W30-W56 N34-N41
      2  827 1602 (N44E11 L=246)   396    132        0 ( 772/1575- 897/1620)  10.3 E15-E04 N42-N45
      3 1062 1602 (N42W09 L=266)   528    135        2 ( 985/1581-1126/1618)  -4.8 W02-W14 N40-N44
      4  243 1347 (N28E63 L=194)   755     81        1 ( 222/1314- 276/1386) -33.7 E67-E57 N26-N30
      5 1280 1314 (N21W19 L=276)   351    112        1 (1234/1282-1334/1346) -33.7 W16-W22 N18-N23
      6 1761 1234 (N10W55 L=311)  1157    231        1 (1685/1148-1813/1290) -51.3 W47-W59 N04-N14
      7  859 1196 (N17E09 L=248)   190     89        0 ( 834/1162- 884/1227)  63.4 E10-E07 N14-N18
      8 1188 1131 (N10W11 L=268)   255     99        1 (1168/1085-1229/1162)  45.0 W09-W13 N07-N11
      9  662 1108 (N12E22 L=234)   491    212        1 ( 565/1055- 746/1143) -21.0 E29-E16 N08-N14
     10 1064  870 (S04W01 L=258)   281    129        1 (1050/ 807-1084/ 926)  74.1 W00-W02 S08-S01
     11  266  764 (S07E57 L=200)   749    114        1 ( 231/ 718- 294/ 808) -56.3 E60-E54 S10-S04
     12  937  623 (S19E09 L=248)   298     58        1 ( 923/ 588- 963/ 660)  78.7 E09-E07 S21-S16
     13 1345  339 (S45W21 L=278)   418     74        1 (1320/ 311-1365/ 375)  90.0 W18-W22 S47-S41
     14 1146  289 (S47W03 L=260)  1250    238        2 (1049/ 255-1259/ 326)  -3.2 E05-W13 S50-S44
     15  888  219 (S52E23 L=234)  1447    196        2 ( 797/ 196- 968/ 253)  -3.4 E31-E14 S54-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