Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  472 1601 (N39E49 L=237)   569    113        2 ( 445/1570- 502/1631) -29.7 E51-E44 N36-N40
      2  209 1319 (N18E65 L=220)   544     44        0 ( 192/1298- 226/1340)  56.3 E68-E62 N16-N19
      3  707 1206 (N13E21 L=265)  1002    346        2 ( 578/1141- 803/1303)  29.7 E29-E14 N09-N19
      4  237 1264 (N15E61 L=225)   411     68        2 ( 215/1244- 259/1282) -11.3 E63-E57 N13-N15
      5  174  961 (S04E66 L=220)   739    141        3 ( 148/ 928- 204/1001) -20.6 E69-E61 S06-S01
      6  679  842 (S09E22 L=264)   692    259        1 ( 593/ 747- 766/ 901) -42.0 E27-E15 S14-S05
      7  225  843 (S11E59 L=226)   488     75        1 ( 207/ 808- 239/ 885)  68.2 E61-E57 S13-S08
      8 1853  817 (S10W65 L=350)   780    108        1 (1816/ 781-1884/ 848)  20.6 W60-W69 S11-S07
      9  679  705 (S18E22 L=264)   232     42        0 ( 653/ 685- 700/ 727) -45.0 E23-E20 S19-S16
     10  932  608 (S24E05 L=280)  1090    283        1 ( 827/ 554- 989/ 719)  47.7 E12-E01 S27-S15
     11 1723  588 (S25W55 L=341)   393     60        0 (1700/ 566-1740/ 617)  76.0 W52-W56 S26-S22
     12  665  568 (S27E24 L=261)   332     80        0 ( 646/ 533- 680/ 607)  59.0 E25-E22 S29-S24
     13  418  394 (S43E53 L=233)  1250    270        3 ( 369/ 371- 476/ 418)  14.0 E61-E45 S45-S40
  

    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