Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1263 1677 (N47W26 L=182)   976    193        3 (1190/1635-1345/1704)   7.6 W18-W33 N43-N48
      2 1591 1662 (N42W61 L=217)   660     77        1 (1548/1637-1630/1689) -20.6 W56-W66 N40-N44
      3  554 1388 (N28E33 L=123)   244     51        1 ( 538/1355- 569/1415) -53.1 E34-E31 N26-N30
      4  415 1301 (N23E43 L=113)   272     83        0 ( 386/1273- 444/1338) -33.7 E46-E40 N21-N25
      5  803 1285 (N21E13 L=143)   917    347        3 ( 669/1200- 916/1338)  19.4 E22-E05 N16-N24
      6 1486 1267 (N17W32 L=188)   355     77        2 (1466/1231-1504/1310)  59.0 W30-W34 N14-N19
      7 1689 1008 (S01W45 L=201)   270     43        3 (1661/ 990-1716/1025)   0.0 W42-W47 S01-N00
      8 1493  900 (S06W29 L=185)   622    151        2 (1441/ 849-1539/ 948) -49.4 W26-W32 S09-S02
      9 1788  913 (S07W54 L=210)   447     68        3 (1752/ 894-1822/ 935)  -7.1 W50-W58 S08-S06
     10 1140  809 (S09W06 L=162)   884    411        3 ( 994/ 756-1288/ 891) -25.2 E02-W15 S13-S03
     11 1612  844 (S10W38 L=194)   301     74        1 (1564/ 825-1639/ 863)   0.0 W34-W40 S11-S09
     12 1806  798 (S15W58 L=214)   952    156        2 (1765/ 760-1839/ 852) -63.4 W53-W61 S17-S11
     13  294  723 (S13E55 L=101)  2624    383        7 ( 192/ 637- 439/ 819) -25.5 E66-E43 S18-S07
     14  511  710 (S14E36 L=120)   738    201        3 ( 456/ 646- 576/ 794)  48.0 E40-E29 S18-S08
     15 1061  724 (S14W01 L=157)   428    190        1 ( 971/ 708-1137/ 745) -12.5 E04-W05 S15-S12
     16 1170  695 (S17W08 L=164)   439    148        2 (1132/ 630-1220/ 734)  66.8 W05-W11 S21-S14
     17 1482  624 (S23W30 L=186)  1571    306        1 (1382/ 521-1569/ 715)  45.0 W23-W36 S30-S17
     18 1098  630 (S21W03 L=159)   219     52        0 (1064/ 615-1123/ 643)  14.0 W00-W04 S21-S19
     19  316  529 (S27E62 L= 94)  1099    119        1 ( 303/ 470- 336/ 589)  36.9 E70-E56 S31-S22
     20  608  301 (S45E44 L=112)   434     27        1 ( 585/ 283- 634/ 316) -11.3 E47-E41 S46-S43
     21 1248  249 (S53W18 L=174)   457     44        1 (1225/ 227-1265/ 276) -68.2 W15-W20 S55-S50
     22 1353  209 (S60W36 L=192)  1894    150        1 (1303/ 165-1399/ 256) -20.6 W24-W64 S69-S53
  

    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