Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  359 1474 (N11E57 L=105)   386    124        0 ( 333/1443- 389/1506) -20.6 E61-E53 N09-N12
      2  634 1352 (N09E31 L=131)   237     48        0 ( 609/1334- 662/1372) -14.0 E33-E29 N07-N09
      3  245 1285 (S02E61 L=101)   790    187        0 ( 220/1211- 268/1349) -35.0 E66-E56 S06-N01
      4  214  996 (S20E57 L=105)   857    200        2 ( 172/ 923- 254/1061)  59.0 E60-E53 S25-S15
      5  362  969 (S19E42 L=119)  1109    295        3 ( 265/ 917- 437/1048)  34.7 E50-E37 S22-S12
      6  480  951 (S18E33 L=129)   287    135        0 ( 445/ 910- 535/ 975)  33.7 E34-E28 S20-S15
      7  225  877 (S27E55 L=107)   772    149        0 ( 196/ 818- 250/ 931)  63.4 E57-E52 S31-S23
      8  972  895 (S11E00 L=161)   269     99        0 ( 919/ 882-1028/ 916)  38.7 E03-W02 S12-S08
      9 1900  829 (N07W72 L=234)  1402    168        2 (1873/ 769-1917/ 896) -58.0 W66-W77 N02-N10
     10  756  783 (S22E11 L=151)   489    189        1 ( 679/ 748- 814/ 856)  52.1 E15-E08 S25-S16
     11  825  792 (S20E07 L=155)   273     67        0 ( 795/ 763- 852/ 823)  68.2 E08-E05 S22-S17
     12 1522  672 (S12W40 L=201)  1270    228        0 (1472/ 576-1555/ 769) -77.0 W34-W42 S18-S05
     13 1761  552 (S13W67 L=229)  1524    229        4 (1698/ 514-1818/ 599)  33.7 W61-W73 S16-S08
     14 1315  485 (S28W33 L=195)   619    121        0 (1241/ 460-1367/ 524)  40.6 W28-W35 S30-S23
  

    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