Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1203 1860 (N51W49 L=115)   834     95        3 (1143/1841-1252/1877) -26.6 W41-W54 N49-N54
      2 1484 1494 (N19W41 L=108)  1645    372        3 (1305/1441-1612/1589)   0.0 W27-W56 N16-N22
      3  975 1525 (N33W09 L= 75)  1784    374        1 ( 828/1451-1144/1579) -35.8 E01-W17 N24-N38
      4  352 1415 (N40E44 L= 23)  2653    306        7 ( 262/1308- 418/1553) -34.1 E67-E35 N31-N52
      5  359 1158 (N23E42 L= 25)   540     73        2 ( 328/1125- 389/1185) -36.9 E44-E39 N20-N24
      6  122 1045 (N20E71 L=356)  4038    267        7 (  83/ 944- 163/1156)  85.6 E81-E64 N14-N27
      7  399 1040 (N15E39 L= 27)   787    102        1 ( 358/1002- 444/1080) -39.8 E42-E36 N12-N17
      8 1296  847 (S13W12 L= 79)   472    169        0 (1270/ 766-1321/ 928)  60.9 W09-W14 S17-S08
      9 1757  795 (S27W46 L=113)   325     54        2 (1731/ 769-1780/ 812) -38.7 W43-W48 S29-S25
     10 1010  694 (S16E08 L= 59)   629    165        0 ( 948/ 640-1077/ 749) -56.3 E10-E04 S20-S11
     11 1658  644 (S35W37 L=104)   355     73        0 (1617/ 629-1691/ 659) -14.0 W32-W40 S36-S33
     12  451  500 (S17E52 L= 15)   384     72        1 ( 432/ 470- 473/ 536)  78.7 E53-E49 S19-S14
     13  642  417 (S26E41 L= 26)   419    115        0 ( 611/ 376- 659/ 470)  40.6 E45-E38 S28-S22
     14  820  400 (S31E29 L= 37)   250     71        0 ( 789/ 382- 859/ 416)   0.0 E32-E26 S31-S30
  

    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