Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  380 1613 (N27E56 L=200)   735    243        1 ( 339/1576- 426/1653) -21.0 E62-E49 N24-N30
      2  562 1483 (N19E35 L=220)   666    263        1 ( 446/1448- 657/1508)  -3.6 E44-E28 N17-N20
      3  309 1155 (S02E49 L=206)   349     64        0 ( 281/1133- 339/1175)  21.8 E51-E46 S03-S01
      4  177  935 (S16E61 L=194)  2113    336       10 ( 125/ 847- 226/1009) -71.6 E68-E55 S20-S11
      5  390  951 (S14E41 L=214)   272    100        0 ( 348/ 931- 427/ 979)  18.4 E44-E38 S15-S12
      6  958  876 (S15E03 L=252)  1123    280        2 ( 847/ 793-1092/ 965)  45.0 E09-W04 S20-S08
      7  643  864 (S18E23 L=233)   232     75        0 ( 629/ 835- 668/ 907)  90.0 E23-E20 S19-S15
      8 1219  744 (S20W15 L=270)   334    129        0 (1189/ 696-1270/ 816)  63.4 W13-W17 S23-S15
      9  732  796 (S21E16 L=239)   298    142        1 ( 645/ 783- 788/ 814)   0.0 E22-E12 S22-S20
     10  291  763 (S26E51 L=204)   412     93        1 ( 273/ 715- 314/ 798)  63.4 E52-E48 S29-S23
     11  436  726 (S28E38 L=217)   554    181        0 ( 397/ 656- 487/ 774)  41.6 E42-E33 S32-S24
     12 1593  598 (S24W45 L=300)  1007    132        1 (1527/ 554-1657/ 646)  45.0 W40-W48 S27-S20
     13 1653  397 (S35W59 L=314)   607    118        1 (1616/ 372-1686/ 415)  31.0 W56-W62 S36-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