Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1061 1585 (N35W19 L=134)   253     49        0 (1035/1570-1093/1602) -14.0 W17-W21 N34-N36
      2 1472 1282 (N07W33 L=147)   305     87        0 (1450/1242-1504/1313)  21.8 W30-W35 N04-N08
      3  713 1204 (N22E14 L=101)   246     79        1 ( 685/1169- 753/1241)  18.4 E16-E10 N20-N23
      4 1670 1138 (S06W42 L=157)   818    227        1 (1595/1080-1752/1226) -54.0 W38-W47 S11-N00
      5  182  965 (N20E60 L= 55)  1666    492        5 (  89/ 883- 301/1030) -32.3 E70-E49 N12-N24
      6  601  988 (N12E25 L= 89)   305    136        1 ( 527/ 962- 655/1011)   0.0 E30-E21 N11-N12
      7 1410  925 (S11W19 L=134)   485    131        0 (1394/ 857-1429/1001)  63.4 W17-W21 S14-S06
      8 1614  823 (S23W31 L=146)   383    101        0 (1590/ 766-1644/ 872)  45.0 W28-W34 S25-S20
      9 1832  798 (S31W50 L=165)   406     79        0 (1802/ 763-1852/ 831)  45.0 W46-W52 S32-S29
     10 1060  736 (S13E05 L=110)   235     74        0 (1021/ 715-1101/ 752)   0.0 E07-E02 S13-S12
     11 1518  642 (S31W21 L=136)   501     90        2 (1479/ 597-1557/ 678)  26.6 W18-W24 S33-S29
     12 1236  519 (S31E01 L=114)   301     58        0 (1224/ 486-1251/ 554)  78.7 E02-W00 S33-S28
     13  798  437 (S24E30 L= 84)   349    131        1 ( 784/ 387- 811/ 491)  49.4 E33-E27 S27-S20
  

    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