Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1299 1509 (N24W31 L=214)  3252    697        7 ( 977/1452-1576/1540) -24.1 W11-W50 N15-N33
      2  788 1341 (N29E06 L=177)   425    118        1 ( 754/1299- 827/1384) -10.1 E07-E04 N25-N31
      3 1902 1138 (S14W65 L=247)  3908    479        9 (1834/ 999-1949/1270)  83.7 W59-W70 S23-S05
      4  298 1218 (N34E45 L=138)   310     74        1 ( 266/1193- 323/1233)  -9.5 E48-E42 N31-N34
      5 1823 1138 (S11W55 L=238)   755    112        1 (1786/1102-1856/1173)  -7.1 W51-W59 S13-S09
      6 1868  997 (S21W56 L=239)   537     66        0 (1853/ 957-1883/1031)  63.4 W54-W58 S23-S18
      7 1594  726 (S28W28 L=210)  2482    541        1 (1420/ 537-1668/ 975)  39.8 W11-W37 S37-S14
      8  484  816 (N06E38 L=145)   262     54        1 ( 466/ 790- 501/ 843)  26.6 E39-E35 N04-N07
      9  645  755 (S01E29 L=154)   356    110        0 ( 600/ 702- 682/ 797) -71.6 E30-E27 S04-N02
     10 1437  709 (S24W16 L=199)   589    170        0 (1370/ 619-1501/ 794)  30.3 W10-W22 S28-S20
     11 1122  549 (S25E07 L=175)   616    223        2 (1070/ 449-1157/ 646)  47.7 E13-E02 S30-S19
     12  760  421 (S23E34 L=149)  1519    535        6 ( 672/ 273- 855/ 596)  33.2 E48-E22 S31-S14
     13  490  405 (S18E54 L=129)   449     97        0 ( 468/ 367- 512/ 450)  74.1 E56-E52 S21-S14
     14  899  268 (S38E34 L=149)   508    102        2 ( 860/ 240- 934/ 298)  14.0 E37-E29 S39-S36
     15  756  240 (S36E46 L=137)   451    143        0 ( 725/ 205- 779/ 272)  21.8 E51-E41 S38-S33
  

    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