Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  687 1714 (N60E02 L= 66)   938    183        0 ( 625/1652- 759/1782)  20.2 E10-W10 N56-N64
      2  502 1629 (N60E27 L= 41)   704    119        1 ( 444/1598- 554/1657)   0.0 E35-E19 N57-N62
      3 1169 1330 (N19W17 L= 85)   535    154        2 (1089/1304-1246/1348) -24.0 W12-W21 N17-N22
      4 1866 1102 (S14W59 L=127)  3492    367        8 (1797/1010-1933/1281) -75.3 W51-W68 S21-S02
      5 1873 1202 (S09W64 L=132)  1404    122        3 (1845/1142-1898/1256) -90.0 W59-W69 S12-S05
      6  416 1207 (N32E36 L= 32)   236     30        0 ( 394/1191- 440/1223)   0.0 E37-E33 N30-N32
      7 1460 1174 (N03W29 L= 97)   292     86        0 (1445/1128-1476/1218)  59.0 W26-W30 N00-N05
      8  226 1122 (N30E56 L= 12)   543    105        2 ( 182/1101- 277/1151) -13.0 E62-E49 N28-N32
      9  813 1048 (N13E11 L= 57)   450    170        2 ( 757/ 983- 878/1081)   7.1 E15-E07 N10-N14
     10 1716  967 (S16W41 L=109)   886    256        3 (1689/ 855-1740/1066)  81.3 W38-W43 S23-S10
     11  656 1015 (N15E22 L= 47)   334    133        1 ( 595/ 994- 705/1044) -23.2 E25-E17 N14-N17
     12 1837  986 (S19W53 L=121)   409     36        1 (1823/ 957-1857/1013)  45.0 W51-W55 S20-S17
     13  499  977 (N16E33 L= 35)   337    118        0 ( 440/ 952- 559/1001) -35.5 E36-E29 N13-N19
     14 1785  904 (S22W46 L=114)   413     36        2 (1767/ 875-1805/ 930)  56.3 W44-W48 S24-S20
     15  227  836 (N13E60 L=  8)   722    106        1 ( 202/ 787- 262/ 868)  29.7 E63-E55 N10-N15
     16  552  636 (S04E38 L= 30)   329     73        2 ( 527/ 611- 584/ 662) -11.3 E40-E35 S05-S02
     17 1702  575 (S41W36 L=104)  2046    202        3 (1630/ 519-1762/ 659)  19.7 W28-W42 S45-S35
     18  435  399 (S16E61 L=  7)  2058    171        6 ( 374/ 344- 499/ 455) -73.3 E66-E55 S21-S11
     19 1268  354 (S41E05 L= 63)  1607    292        5 (1158/ 290-1407/ 432)   2.6 E15-W07 S44-S38
     20  963  185 (S45E38 L= 30)  1170    119        1 ( 913/ 153-1025/ 225)  11.3 E44-E29 S48-S42
  

    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