Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  697 1439 (N08E31 L=284)  1081    320        1 ( 659/1296- 730/1584) -60.6 E35-E26 N00-N16
      2 1439 1460 (N31W13 L=327)   253     45        0 (1410/1447-1470/1472)  36.9 W10-W14 N29-N32
      3 1804 1432 (N45W46 L=  1)   543    117        0 (1786/1401-1816/1468)  54.5 W43-W49 N41-N48
      4 1677 1337 (N32W33 L=348)   476     90        1 (1640/1292-1708/1376) -26.6 W29-W35 N29-N33
      5  875 1302 (N05E16 L=299)   245     73        0 ( 835/1278- 918/1319)  36.9 E17-E13 N02-N06
      6  388 1155 (S15E43 L=272)  1916    452        1 ( 218/1108- 532/1184)  12.5 E58-E31 S19-S11
      7 1871  751 (N06W68 L= 23)   815    126        2 (1841/ 731-1903/ 777)   4.8 W63-W75 N04-N07
      8 1515  703 (S09W38 L=353)   321    109        0 (1493/ 645-1536/ 751) -71.6 W37-W39 S12-S06
      9 1627  600 (S11W51 L=  6)   299     32        1 (1607/ 581-1651/ 618)  33.7 W49-W53 S11-S09
     10 1695  528 (S12W61 L= 16)   910    104        1 (1652/ 482-1742/ 578)  66.8 W58-W64 S15-S08
     11 1210  504 (S30W29 L=343)   748    125        2 (1141/ 467-1261/ 552)  69.4 W25-W31 S33-S25
     12 1729  501 (S12W67 L= 22)   486     74        2 (1706/ 479-1753/ 525)  76.0 W64-W69 S13-S09
     13 1082  469 (S36W23 L=337)   253     34        0 (1065/ 449-1103/ 494) -14.0 W20-W24 S37-S34
     14 1516  352 (S27W58 L= 12)  1958    338        3 (1430/ 293-1592/ 405)   2.7 W47-W68 S28-S24
  

    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