Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1006 1913 (N62W53 L=321)   542     54        2 ( 975/1893-1043/1928) -26.6 W49-W58 N59-N64
      2 1360 1852 (N42W67 L=335)   818     82        2 (1319/1823-1398/1882)   0.0 W58-W77 N40-N43
      3  836 1844 (N65W26 L=294)   523     63        0 ( 822/1807- 850/1878)  23.2 W19-W33 N61-N67
      4  513 1660 (N61E25 L=243)  1298    238        2 ( 414/1600- 605/1721)   6.1 E40-E11 N58-N63
      5 1399 1450 (N19W35 L=303)   287     81        0 (1357/1431-1440/1472) -45.0 W32-W37 N16-N20
      6  824 1328 (N28E04 L=264)  1070    321        7 ( 676/1284- 975/1361) -34.5 E12-W04 N22-N33
      7 1807 1195 (S07W55 L=323)   521     69        1 (1784/1157-1838/1229)  31.0 W51-W59 S08-S05
      8 1692 1069 (S10W41 L=309)   605    139        0 (1671/1006-1713/1140)  49.4 W38-W44 S13-S06
      9  647  993 (N13E22 L=245)   378    180        1 ( 573/ 953- 709/1022) -45.0 E26-E19 N09-N16
     10 1705  734 (S30W37 L=304)   336     61        1 (1688/ 710-1729/ 773)  63.4 W34-W38 S32-S27
     11  472  416 (S16E55 L=212)  5511      0       22 ( 267/ 274- 702/ 627) -61.1 E68-E43 S29-N00
     12 1509  558 (S35W18 L=286)  1452    241        2 (1408/ 511-1609/ 625)   0.0 W09-W26 S37-S32
     13  661  490 (S15E37 L=231)   413     60        2 ( 624/ 463- 692/ 514) -11.3 E39-E34 S17-S13
     14  828  350 (S28E33 L=234)   343     89        1 ( 784/ 334- 874/ 369) -38.7 E35-E30 S29-S25
     15  981  219 (S43E33 L=235)  3161    412       10 ( 807/ 127-1132/ 327)   7.1 E56-E15 S47-S38
  

    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