Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  406 1647 (N23E63 L= 89)  1228    257        2 ( 384/1589- 430/1695) -41.2 E68-E59 N19-N26
      2  453 1440 (N11E47 L=105)   334    101        0 ( 424/1398- 476/1477) -29.7 E51-E44 N08-N12
      3  762 1313 (N09E22 L=130)   201     59        0 ( 734/1291- 789/1341) -21.8 E24-E19 N08-N10
      4  327 1269 (S02E52 L=100)   569    133        0 ( 301/1212- 357/1323) -29.7 E56-E48 S04-N01
      5 1566 1204 (N20W31 L=183)   583    122        0 (1524/1143-1595/1263) -39.8 W26-W33 N16-N23
      6 1337 1189 (N14W15 L=168)   230    115        0 (1300/1134-1374/1242) -35.5 W11-W18 N11-N16
      7 1800 1208 (N27W51 L=203)   364     57        1 (1775/1183-1819/1229) -14.0 W48-W52 N25-N28
      8 1817 1122 (N21W53 L=206)   358     69        1 (1790/1103-1835/1145)   0.0 W50-W55 N20-N23
      9  586  906 (S18E25 L=128)   212     68        0 ( 568/ 875- 616/ 929)  63.4 E25-E22 S20-S16
     10  353  875 (S25E42 L=110)  1063    332        3 ( 271/ 802- 467/ 927)  27.9 E49-E32 S30-S20
     11 1111  836 (S11W09 L=161)   337    101        2 (1056/ 812-1164/ 860)  26.6 W05-W11 S13-S08
     12  885  715 (S23E02 L=151)   341    136        0 ( 816/ 694- 933/ 756)  45.0 E05-W00 S25-S19
     13 1420  451 (S27W42 L=194)   808    160        0 (1332/ 419-1473/ 507)  53.1 W36-W44 S31-S22
     14  956  489 (S36W09 L=161)   475    163        0 ( 876/ 473-1042/ 506)  24.4 W03-W14 S38-S33
  

    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