Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  480 1621 (N20E51 L=221)   487    110        2 ( 447/1599- 532/1642)   0.0 E54-E46 N18-N21
      2  203 1145 (S13E60 L=212)  4713    799       17 ( 119/ 955- 283/1278)  64.5 E69-E52 S24-S04
      3  316 1234 (S06E51 L=221)   398    102        1 ( 301/1188- 330/1278)  90.0 E52-E48 S09-S03
      4  330 1092 (S14E47 L=225)   350    106        2 ( 293/1073- 368/1122)  18.4 E49-E43 S15-S12
      5  390 1080 (S14E41 L=230)   248     88        0 ( 350/1057- 426/1107)  38.7 E44-E38 S16-S12
      6  919 1035 (S08E06 L=265)   324     85        0 ( 880/ 998- 948/1072)  71.6 E07-E05 S11-S05
      7  402 1036 (S17E40 L=232)   258     63        0 ( 380/1009- 427/1063)  53.1 E41-E38 S18-S14
      8  778  981 (S14E14 L=258)   409    151        1 ( 691/ 963- 844/ 996)  18.4 E18-E09 S16-S12
      9  387  913 (S24E40 L=232)   324     85        2 ( 349/ 884- 406/ 936) -21.8 E43-E38 S26-S22
     10 1223  790 (S16W17 L=288)   824    311        1 (1093/ 751-1372/ 868)   3.2 W07-W25 S18-S13
     11 1289  835 (S12W19 L=291)   225     81        0 (1256/ 814-1335/ 864)   0.0 W16-W22 S13-S10
     12  822  764 (S26E07 L=265)  1478    432        4 ( 644/ 674-1029/ 852)  39.0 E18-W03 S34-S16
     13 1200  595 (S28W21 L=293)   304     93        0 (1154/ 581-1247/ 617)  18.4 W18-W24 S29-S26
     14 1834  577 (S11W74 L=345)   726     61        1 (1813/ 546-1853/ 604)  90.0 W71-W76 S13-S09
     15  615  536 (S45E19 L=252)   630    135        2 ( 592/ 485- 644/ 596) -60.3 E21-E16 S48-S40
     16 1574  558 (S21W48 L=319)   477     54        0 (1542/ 528-1613/ 588)  63.4 W45-W49 S22-S18
     17  946  500 (S40W07 L=279)   469    155        1 ( 874/ 471-1026/ 537)  45.0 W02-W11 S43-S35
     18  738  450 (S49E08 L=264)   266     44        1 ( 711/ 433- 760/ 475)  11.3 E10-E05 S49-S46
     19 1207  404 (S40W30 L=301)   523    108        1 (1141/ 378-1246/ 438)  56.3 W25-W31 S42-S36
  

    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