Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  841 1846 (N65W27 L=293)   592     59        1 ( 816/1812- 860/1879)  23.2 W20-W34 N61-N67
      2  513 1661 (N61E25 L=242)  1383    248        0 ( 417/1600- 616/1724)   5.9 E40-E09 N58-N63
      3 1453 1434 (N16W38 L=304)  1077    330        1 (1317/1349-1602/1482) -49.1 W30-W44 N07-N22
      4  845 1336 (N28E02 L=264)  1096    350        1 ( 691/1293- 996/1370) -32.9 E11-W06 N21-N33
      5 1741 1116 (S09W47 L=313)  1159    311        0 (1681/1010-1830/1230)  20.2 W39-W58 S13-S06
      6  687  990 (N12E20 L=246)   246    106        1 ( 641/ 963- 726/1007) -36.9 E22-E17 N09-N13
      7 1721  743 (S31W38 L=305)   366     62        1 (1699/ 716-1748/ 777)  45.0 W35-W40 S32-S28
      8  181  726 (N07E70 L=197)   616     57        0 ( 150/ 710- 214/ 744) -11.3 E74-E64 N06-N08
      9 1529  569 (S35W20 L=286)  1533    233        3 (1422/ 525-1625/ 641)  -3.6 W11-W28 S37-S31
     10  690  501 (S15E35 L=232)   283     41        1 ( 669/ 474- 713/ 523)  71.6 E36-E32 S16-S13
     11  455  407 (S16E58 L=209)  1561    239        3 ( 404/ 335- 524/ 500)  80.5 E62-E50 S22-S10
     12  616  346 (S23E49 L=218)  1687    307        5 ( 521/ 278- 717/ 426) -69.0 E54-E41 S29-S16
     13  839  358 (S28E32 L=234)   348    104        0 ( 794/ 342- 875/ 384) -45.0 E34-E28 S29-S25
     14 1000  227 (S43E31 L=235)  2941    450        4 ( 818/ 128-1154/ 337)   5.7 E55-E13 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