Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1385 1703 (N45W44 L=223)   932    163        1 (1318/1661-1468/1729)  -3.2 W36-W54 N42-N46
      2 1010 1586 (N42W06 L=186)   316     25        1 ( 986/1563-1037/1605) -26.6 W04-W08 N40-N43
      3 1158 1459 (N31W14 L=194)   936    172        2 (1083/1408-1232/1511) -45.0 W09-W18 N27-N35
      4 1737 1429 (N21W61 L=240)   431     53        0 (1707/1411-1766/1445) -18.4 W57-W63 N19-N21
      5  302 1352 (N31E55 L=125)  1540    226        5 ( 202/1319- 405/1387)   0.0 E69-E43 N28-N33
      6 1758 1309 (N13W57 L=237)   730    128        1 (1699/1276-1825/1338) -24.4 W51-W64 N10-N15
      7 1618 1292 (N14W43 L=223)   265     73        0 (1593/1257-1645/1324) -63.4 W42-W44 N12-N16
      8  200 1198 (N21E64 L=116)  1689    188        1 ( 169/1111- 232/1289) -37.6 E72-E58 N16-N26
      9  109 1050 (N12E78 L=102)   873     47        2 (  93/1022- 124/1077) -45.0 E82-E74 N10-N13
     10  532  955 (N05E32 L=148)   454    106        2 ( 503/ 907- 561/1009) -71.6 E33-E30 N02-N08
     11  980  936 (N01E04 L=176)   251    102        0 ( 965/ 890- 998/ 986)  63.4 E04-E01 S01-N03
     12 1668  833 (S14W41 L=221)   468    120        0 (1628/ 786-1699/ 886)  50.2 W38-W44 S16-S10
     13 1261  856 (S07W13 L=192)   293     85        1 (1223/ 820-1288/ 879)   0.0 W10-W14 S09-S05
     14  514  707 (S10E37 L=143)   425     95        0 ( 483/ 668- 541/ 762) -71.6 E38-E34 S12-S06
     15 1473  590 (S27W26 L=206)   258     87        0 (1458/ 550-1483/ 639)  90.0 W25-W27 S29-S23
     16  402  586 (S17E49 L=130)   803     97        1 ( 366/ 547- 436/ 625) -68.2 E52-E46 S19-S14
     17  522  560 (S19E40 L=140)   501    117        1 ( 481/ 522- 565/ 611) -60.3 E41-E37 S22-S15
     18  891  539 (S24E14 L=165)   634    157        1 ( 849/ 474- 930/ 602)  58.0 E16-E10 S28-S19
     19 1207  526 (S28W07 L=186)   562    103        2 (1180/ 477-1225/ 588)  76.0 W04-W08 S31-S23
     20 1053  397 (S36E05 L=174)  2581    417        6 ( 910/ 342-1207/ 468)  -5.7 E14-W06 S39-S29
     21  491  436 (S28E48 L=131)   621     68        0 ( 460/ 411- 532/ 465) -36.9 E50-E44 S30-S25
     22 1538  325 (S51W42 L=221)   959     84        1 (1493/ 307-1588/ 347)  -4.1 W35-W50 S53-S48
     23 1278  244 (S54W13 L=193)  2053    265        4 (1171/ 206-1400/ 302)   7.1 W01-W26 S57-S49
  

    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