Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  834 1739 (N49E07 L= 13)   321     48        1 ( 817/1711- 854/1762)  76.0 E08-E05 N46-N50
      2 1195 1708 (N41W22 L= 42)   349     79        1 (1158/1690-1237/1722)   0.0 W18-W25 N40-N42
      3 1374 1527 (N26W29 L= 49)  1074    214        1 (1258/1482-1451/1549) -26.6 W21-W34 N22-N28
      4 1710 1409 (N16W53 L= 73)  1330    238        2 (1657/1360-1757/1489)  56.3 W47-W59 N12-N21
      5 1087 1433 (N23W08 L= 28)   247     92        1 (1041/1420-1134/1448) -21.8 W05-W10 N21-N24
      6  722 1377 (N23E16 L=  4)  1054    335        0 ( 596/1301- 881/1429) -30.1 E25-E06 N16-N27
      7  361 1413 (N29E45 L=335)   396     71        1 ( 326/1394- 407/1425)   8.1 E49-E41 N28-N30
      8 1284 1177 (N06W17 L= 37)   546    208        0 (1218/1133-1381/1234) -33.7 W13-W22 N02-N09
      9 1025 1126 (N05W01 L= 21)   259     82        1 (1011/1083-1039/1176)  78.7 W00-W01 N02-N07
     10 1341 1099 (N00W20 L= 40)   198     69        0 (1310/1082-1375/1117) -14.0 W17-W21 N00-N01
     11 1845  938 (S13W58 L= 79)   519     55        2 (1809/ 919-1875/ 959)   0.0 W54-W62 S14-S11
     12 1743  827 (S19W49 L= 69)   598     85        2 (1712/ 797-1780/ 868) -33.7 W45-W52 S21-S16
     13 1667  736 (S24W42 L= 63)   844    228        1 (1646/ 632-1693/ 839) -81.9 W40-W45 S31-S17
     14  192  759 (S09E65 L=315)   772     96        1 ( 174/ 710- 211/ 807)  63.4 E68-E62 S11-S05
     15  876  643 (S23E13 L=  7)   915    197        0 ( 828/ 552- 907/ 718)  55.0 E18-E10 S28-S18
  

    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