Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  578 1804 (N45E55 L=264)  1162    102        3 ( 525/1775- 629/1827)  -9.5 E69-E45 N42-N47
      2  827 1737 (N40E24 L=295)   307     92        1 ( 789/1719- 876/1754)  15.9 E26-E19 N38-N41
      3 1262 1712 (N43W11 L=330)   414    102        0 (1225/1685-1315/1737) -15.9 W08-W15 N41-N45
      4 1643 1566 (N37W45 L=  3)  1787    273        3 (1516/1503-1718/1614)  -6.0 W32-W51 N33-N40
      5  911 1349 (N14E10 L=309)   782    323        0 ( 863/1246- 999/1495) -51.8 E14-E03 N07-N22
      6 1293 1062 (S00W16 L=335)  1061    270        2 (1221/ 971-1408/1136)  45.0 W12-W22 S06-N05
      7 1685 1010 (N01W43 L=  2)   427     65        2 (1645/ 987-1720/1029)   8.1 W39-W46 N00-N02
      8 1594  966 (S03W37 L=356)   311     70        0 (1570/ 931-1619/ 995)  53.1 W35-W38 S04-N00
      9 1019  954 (S09W00 L=319)   189     91        0 ( 992/ 923-1061/ 990)  59.0 E01-W02 S11-S06
     10  655  874 (S17E22 L=297)   246    110        1 ( 625/ 829- 704/ 905)  38.7 E24-E18 S19-S14
     11 1536  687 (S20W38 L=357)   292    119        0 (1474/ 673-1580/ 712)  29.7 W33-W41 S21-S17
     12  891  553 (S35E05 L=314)  1637    380        2 ( 735/ 477-1012/ 684)  39.8 E16-W02 S42-S25
     13  320  599 (S36E55 L=264)   860    174        0 ( 305/ 515- 334/ 678)  47.7 E60-E50 S41-S30
     14  501  609 (S35E36 L=283)   468     66        2 ( 460/ 594- 544/ 625)   0.0 E39-E31 S35-S33
     15 1481  320 (S45W54 L= 13)   421     54        0 (1448/ 303-1509/ 339)  31.0 W51-W57 S46-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