Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  795 1587 (N47W00 L=161)   346     95        0 ( 755/1554- 836/1625)  23.2 E03-W04 N45-N48
      2  885 1343 (N29E00 L=161)   762    264        2 ( 773/1275- 982/1401)   7.1 E09-W07 N27-N30
      3 1092 1200 (N15W08 L=169)   767    434        2 ( 917/1142-1277/1246)  -7.4 E03-W20 N11-N17
      4 1750  970 (S15W45 L=206)  3136    697        3 (1554/ 705-1887/1183)  32.0 W25-W62 S25-S04
      5  529 1136 (N24E29 L=133)   681    146        3 ( 460/1099- 587/1181)  11.3 E34-E24 N22-N26
      6 1676 1079 (S07W41 L=203)   637    168        1 (1655/1010-1703/1162)  66.0 W39-W43 S10-S01
      7  292 1082 (N25E50 L=112)   315     68        0 ( 263/1052- 326/1110)  18.4 E52-E46 N23-N26
      8  260 1000 (N21E54 L=107)   766    196        1 ( 228/ 922- 303/1073) -63.4 E57-E50 N15-N25
      9 1730 1051 (S10W45 L=206)   321     77        0 (1700/1028-1765/1072)  -9.5 W42-W48 S10-S08
     10 1396  896 (S09W18 L=180)   231     69        2 (1372/ 868-1435/ 918)  14.0 W16-W20 S10-S07
     11  149  882 (N15E71 L= 91)   589     54        1 ( 123/ 864- 177/ 901)  -6.3 E75-E65 N13-N16
     12 1325  812 (S12W12 L=173)   358     61        0 (1290/ 782-1356/ 835) -53.1 W10-W14 S13-S09
     13 1170  808 (S08W03 L=164)   241     45        0 (1147/ 789-1196/ 824)  18.4 W01-W04 S09-S07
     14 1243  778 (S12W07 L=168)   292     36        2 (1219/ 755-1266/ 805)  18.4 W05-W08 S13-S10
     15  284  694 (N02E59 L=102)   363    105        0 ( 273/ 641- 298/ 745)  68.2 E60-E56 N00-N05
     16 1212  678 (S17W03 L=164)  1006    349        1 (1083/ 616-1382/ 711) -12.5 E05-W13 S20-S14
     17 1362  530 (S31W09 L=170)   621    251        0 (1275/ 464-1458/ 608)  14.9 W01-W16 S33-S28
     18  474  438 (S16E54 L=108)  2558    455        4 ( 366/ 275- 612/ 574) -87.6 E59-E48 S30-S05
     19 1054  407 (S31E15 L=146)  1308    367        3 ( 940/ 266-1135/ 549)  34.8 E29-E05 S38-S22
     20  580  500 (S14E42 L=120)   333     43        1 ( 559/ 475- 599/ 530)  36.9 E43-E39 S15-S12
     21  985  457 (S26E17 L=144)   364    101        1 ( 943/ 417-1019/ 481) -68.2 E19-E15 S29-S23
     22  832  443 (S23E27 L=134)   273     41        0 ( 814/ 414- 848/ 470)  56.3 E28-E25 S24-S21
     23  656  378 (S24E42 L=119)   892    251        2 ( 620/ 284- 711/ 467)  32.9 E51-E33 S29-S18
     24 1262  313 (S45E04 L=157)   372     56        1 (1230/ 295-1296/ 331)   0.0 E07-E01 S46-S43
     25  919  148 (S49E45 L=117)   495     50        0 ( 897/ 124- 939/ 172)  50.2 E48-E40 S52-S46
  

    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