Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1350 1807 (N55W08 L=194)   922    111        1 (1298/1783-1393/1832)  31.0 W02-W12 N51-N58
      2 1352 1726 (N46W09 L=195)   619    110        0 (1317/1694-1378/1764)  90.0 W05-W11 N43-N50
      3  493 1465 (N11E43 L=144)   493    132        0 ( 474/1418- 514/1525) -56.3 E44-E39 N08-N14
      4 1133 1298 (N11W01 L=187)   569    179        2 (1067/1245-1177/1388) -84.3 E02-W03 N07-N17
      5 1784 1216 (N21W47 L=233)  2098    341        5 (1746/1051-1825/1368) -73.3 W43-W53 N11-N31
      6 1210  876 (S12W14 L=200)  1759    423        2 (1044/ 707-1299/1062)  76.0 W07-W17 S24-N00
      7 1844  950 (N07W57 L=243)   333     78        1 (1815/ 930-1865/ 975)  11.3 W54-W59 N05-N08
      8  303  878 (S26E47 L=139)   456    107        3 ( 273/ 843- 334/ 910)  38.7 E49-E44 S28-S24
      9  618  843 (S24E22 L=164)   896    225        1 ( 502/ 784- 715/ 907)  32.7 E30-E16 S29-S19
     10 1617  810 (S07W41 L=227)   400    172        0 (1552/ 768-1678/ 829)  29.1 W37-W46 S10-S04
     11  901  754 (S25E02 L=184)   576    112        2 ( 846/ 712- 935/ 802)  60.3 E05-W00 S28-S21
     12 1646  736 (S10W46 L=232)   368     93        0 (1609/ 710-1683/ 765)  51.3 W43-W48 S12-S07
     13 1534  498 (S26W47 L=233)  7080   1142       14 (1148/ 406-1845/ 624)  25.3 W23-W78 S40-S13
     14  645  605 (S39E18 L=168)   511    156        0 ( 566/ 586- 707/ 619) -74.1 E24-E13 S40-S36
  

    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