Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1117 1682 (N35E12 L=307)   750    161        0 (1049/1635-1185/1712)   0.0 E17-E06 N32-N36
      2  327 1388 (S00E54 L=264)   708    169        2 ( 264/1360- 397/1434)  -3.8 E62-E47 S01-N01
      3 1236 1385 (N18W03 L=322)   381     90        0 (1188/1360-1289/1407)   9.5 W00-W06 N16-N19
      4 1671 1278 (N24W34 L=353)   406    103        0 (1644/1235-1704/1318) -31.0 W31-W37 N22-N26
      5 1871 1221 (N28W56 L= 15)   516     65        1 (1849/1193-1895/1252)  35.5 W52-W60 N25-N30
      6 1881 1056 (N18W58 L= 17)  2014    204        5 (1837/ 985-1944/1148) -58.0 W52-W69 N14-N23
      7 1693 1085 (N13W39 L=358)   554    136        1 (1672/1030-1727/1144) -45.0 W37-W43 N10-N16
      8 1440 1049 (N04W23 L=342)   323    132        0 (1375/1025-1501/1084)  45.0 W19-W25 N01-N07
      9  539  873 (S26E27 L=292)   339     76        1 ( 497/ 849- 580/ 893)  18.4 E29-E23 S27-S25
     10 1828  746 (S00W62 L= 21)   675     84        1 (1787/ 732-1876/ 767)  10.3 W57-W68 S01-N01
     11 1735  592 (S11W61 L= 19)  1352    243        5 (1703/ 495-1773/ 716) -50.2 W53-W66 S16-S04
     12  307  639 (S46E50 L=269)  2155    335        5 ( 171/ 591- 459/ 673)   1.2 E78-E31 S48-S43
     13 1661  489 (S19W60 L= 19)   524     97        2 (1644/ 436-1680/ 533) -24.0 W56-W65 S20-S16
     14 1491  467 (S25W48 L=  7)   564    108        1 (1443/ 447-1543/ 487)  14.0 W43-W51 S26-S22
     15 1472  313 (S34W60 L= 18)  2461    266        4 (1335/ 285-1604/ 354)  29.7 W48-W71 S39-S27
  

    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