Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  613 1832 (N33E64 L=264)   662     40        0 ( 591/1810- 634/1855) -51.3 E67-E61 N30-N35
      2  956 1751 (N35E29 L=299)   386     60        0 ( 940/1718- 973/1785) -56.3 E30-E26 N32-N38
      3  834 1707 (N28E34 L=294)   468    151        0 ( 761/1662- 887/1729)  -4.8 E39-E27 N26-N29
      4 1219 1453 (N23E01 L=327)   316    113        0 (1169/1420-1265/1473)  -9.5 E03-W03 N21-N23
      5 1108 1338 (N13E04 L=324)   197     69        0 (1081/1303-1129/1368) -36.9 E05-E01 N10-N13
      6  817 1265 (N01E18 L=310)   567    195        2 ( 781/1190- 869/1352) -45.0 E21-E13 S02-N05
      7 1743 1039 (N15W44 L= 12)  1278    346        2 (1646/ 899-1808/1166) -24.2 W33-W54 N09-N19
      8 1612 1085 (N13W33 L=  1)   706    138        1 (1591/1015-1635/1146) -83.7 W31-W34 N08-N17
      9  642 1103 (S12E24 L=304)   387    143        0 ( 574/1078- 707/1123)  12.5 E28-E19 S13-S11
     10  593  851 (S28E22 L=306)   652    185        0 ( 509/ 829- 654/ 901)  26.6 E28-E17 S30-S23
     11  831  880 (S20E07 L=321)   339    117        0 ( 778/ 864- 890/ 898)  33.7 E10-E04 S21-S17
     12  768  658 (S35E06 L=322)   997    225        2 ( 661/ 624- 865/ 699)  33.7 E12-W00 S38-S30
     13 1433  386 (S30W51 L= 19)  1812    335        2 (1292/ 289-1553/ 460)  74.5 W46-W55 S39-S21
     14 1241  261 (S44W50 L= 17)   562     74        1 (1214/ 230-1264/ 292) -10.3 W44-W55 S45-S42
  

    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