Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1037 1751 (N37E23 L=100)  1074    186        1 ( 981/1686-1118/1788)  70.0 E25-E18 N30-N41
      2  484 1627 (N15E54 L= 70)   364     87        0 ( 454/1593- 518/1664)  90.0 E54-E52 N12-N17
      3 1160 1565 (N28E07 L=116)   226     94        0 (1147/1519-1176/1612) -74.1 E08-E06 N24-N31
      4 1509 1487 (N34W17 L=141)   528     87        0 (1486/1441-1536/1529) -38.7 W15-W20 N31-N36
      5 1686 1300 (N28W34 L=158)   604    125        0 (1647/1246-1716/1357) -35.5 W30-W37 N25-N30
      6  983 1321 (N08E10 L=113)   465    147        1 ( 915/1289-1058/1346)  20.6 E14-E06 N06-N10
      7  496 1218 (S09E36 L= 87)   411    128        0 ( 456/1166- 521/1276)  81.9 E37-E35 S12-S05
      8  905 1090 (S06E08 L=115)   866    187        2 ( 853/1024- 945/1171) -36.9 E12-E04 S09-S02
      9  647 1104 (S12E23 L=100)   426     86        1 ( 618/1068- 682/1145)  71.6 E24-E21 S14-S08
     10  881  975 (S13E07 L=117)   240     91        1 ( 862/ 940- 910/1013)  90.0 E07-E05 S15-S10
     11 1822  949 (N12W53 L=177)   605    116        1 (1777/ 918-1869/ 973)  29.1 W49-W58 N09-N14
     12  958  893 (S16E00 L=123)   433    169        0 ( 905/ 862-1039/ 928)  50.2 E02-W03 S18-S12
     13 1800  855 (N07W54 L=177)   536     85        1 (1775/ 826-1830/ 889)  -8.1 W50-W57 N05-N08
     14 1067  875 (S14W06 L=129)   187    100        0 (1013/ 863-1111/ 886)  31.0 W03-W08 S15-S12
     15 1834  773 (N04W61 L=184)   533     65        2 (1810/ 749-1858/ 811)  90.0 W58-W64 N02-N06
     16 1659  595 (S11W53 L=177)   591    108        0 (1629/ 545-1694/ 641) -81.9 W51-W55 S14-S07
     17 1126  556 (S30W21 L=144)   222     37        0 (1099/ 541-1147/ 575)  14.0 W18-W22 S30-S28
     18 1656  477 (S17W61 L=185)  1324    177        2 (1566/ 445-1724/ 503)  31.6 W54-W69 S21-S13
     19 1420  373 (S30W50 L=173)   616     55        2 (1385/ 342-1454/ 404)  45.0 W48-W53 S32-S28
  

    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