Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  702 1790 (N33E48 L=215)  2471    360        6 ( 589/1718- 850/1865)  47.1 E54-E39 N25-N40
      2 1493 1800 (N64W18 L=281)   599     59        0 (1474/1771-1510/1826)  53.1 W14-W24 N58-N70
      3  821 1696 (N28E32 L=231)  1335    336        3 ( 722/1662- 977/1738)  31.0 E40-E22 N24-N34
      4 1516 1460 (N32W20 L=284)  1663    437        1 (1385/1313-1674/1616) -24.8 W08-W34 N26-N39
      5  398 1567 (N12E58 L=206)   535    105        2 ( 352/1546- 452/1586)   5.7 E62-E52 N10-N13
      6  465 1536 (N11E50 L=214)   480     88        2 ( 425/1512- 504/1555)  31.0 E52-E46 N08-N12
      7  591 1482 (N10E38 L=225)   571    106        0 ( 558/1431- 621/1529) -29.7 E41-E34 N07-N12
      8 1776 1341 (N33W45 L=309)   574     85        0 (1727/1313-1807/1368)   0.0 W39-W49 N31-N34
      9 1190 1173 (N05W06 L=269)   273     59        1 (1159/1144-1217/1204)  76.0 W04-W06 N03-N07
     10  493 1134 (S12E35 L=229)   559    130        1 ( 444/1086- 544/1177)  50.2 E37-E31 S15-S09
     11 1913 1112 (N24W64 L=327)   679    115        0 (1875/1061-1941/1165) -14.0 W57-W70 N21-N25
     12  143  999 (S26E69 L=194)  1974    168        6 ( 115/ 926- 165/1089) -83.7 E74-E65 S29-S20
     13  219  995 (S25E58 L=206)   383     68        0 ( 199/ 961- 239/1024)  63.4 E60-E55 S27-S23
     14  345  946 (S26E44 L=219)   462    107        0 ( 309/ 905- 390/ 982)  39.8 E47-E40 S29-S23
     15 1179  890 (S11W12 L=275)   334     98        0 (1118/ 877-1228/ 902)  26.6 W08-W14 S12-S09
     16  532  791 (S32E27 L=237)  2315    489        5 ( 350/ 661- 739/ 866)  32.0 E44-E12 S44-S24
     17 1593  524 (S19W53 L=316)   754    173        0 (1520/ 481-1671/ 568)  48.4 W49-W57 S23-S14
     18 1289  533 (S28W31 L=294)   557    163        1 (1223/ 516-1373/ 550)  16.7 W26-W36 S30-S25
     19 1504  355 (S31W59 L=323)  1990    230        2 (1403/ 316-1604/ 402)  47.7 W52-W65 S35-S24
     20 1385  360 (S35W49 L=312)   982    107        3 (1332/ 337-1438/ 391)  50.2 W44-W53 S37-S31
  

    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