Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1015 1403 (N28W11 L=254)   305     99        1 ( 964/1389-1070/1419) -33.7 W07-W13 N25-N30
      2 1463 1358 (N13W36 L=279)  1584    472        7 (1334/1236-1623/1407)   0.0 W23-W48 N07-N16
      3  200 1117 (N31E56 L=187)  1670    232        4 ( 165/1024- 248/1207)  61.4 E60-E51 N25-N36
      4  811 1065 (N14E11 L=232)  1783    441        7 ( 612/1036-1012/1116) -21.4 E23-W00 N09-N20
      5 1916 1072 (S18W64 L=307)   759    199        0 (1882/1049-1953/1096) -10.3 W59-W70 S19-S17
      6 1827  898 (S25W50 L=293)   846    151        1 (1795/ 828-1851/ 975)  45.0 W45-W53 S28-S20
      7 1452  885 (S13W21 L=264)   385    157        0 (1422/ 810-1493/ 959)  45.0 W17-W25 S16-S09
      8  459  903 (N13E38 L=206)   245     83        1 ( 434/ 875- 478/ 945)  36.9 E39-E35 N12-N15
      9  174  807 (N13E67 L=176)  1348    219        3 ( 138/ 750- 200/ 863) -90.0 E71-E64 N08-N16
     10 1789  713 (S35W44 L=287)   482    165        1 (1748/ 694-1837/ 727) -21.8 W40-W50 S37-S33
     11  478  692 (N01E42 L=201)   510     76        2 ( 434/ 668- 516/ 719) -31.0 E44-E39 N00-N03
     12 1451  639 (S27W15 L=258)   262     43        0 (1428/ 614-1477/ 668)  26.6 W13-W17 S28-S26
     13  863  455 (S22E26 L=217)  1664    347        2 ( 777/ 308- 931/ 587)  77.2 E31-E24 S33-S11
     14  706  365 (S24E41 L=203)   714    238        2 ( 676/ 295- 750/ 444)  76.0 E44-E34 S30-S18
  

    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