Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  968 1794 (N57W29 L= 40)   448     47        0 ( 942/1772- 996/1814) -78.7 W26-W33 N54-N59
      2 1569 1678 (N28W65 L= 76)   537     75        1 (1539/1650-1602/1696) -38.7 W62-W68 N25-N29
      3 1472 1529 (N23W45 L= 55)   414     77        3 (1435/1503-1511/1553) -15.9 W41-W48 N21-N24
      4 1314 1345 (N18W26 L= 36)   492     91        0 (1266/1324-1365/1368) -45.0 W23-W28 N15-N20
      5 1126 1241 (N17W11 L= 22)   431    139        3 (1092/1206-1161/1289) -90.0 W08-W13 N14-N20
      6 1057 1188 (N16W06 L= 16)   281     80        1 (1037/1152-1075/1230)  36.9 W03-W07 N13-N17
      7  587 1199 (N27E24 L=347)   272     50        1 ( 557/1176- 610/1224)  33.7 E25-E21 N25-N28
      8  688 1165 (N23E17 L=353)   239     62        1 ( 668/1134- 707/1197) -90.0 E17-E15 N21-N25
      9 1381 1058 (N00W21 L= 31)  1232    273        4 (1320/ 942-1436/1191)  42.5 W16-W28 S05-N06
     10  616 1052 (N18E24 L=346)   245     60        0 ( 599/1014- 631/1083)  76.0 E25-E22 N15-N19
     11 1517  800 (S19W24 L= 34)   324     69        1 (1479/ 774-1551/ 819) -38.7 W21-W26 S20-S16
     12 1408  595 (S28W13 L= 23)   735    198        0 (1334/ 563-1500/ 653)  -4.4 W07-W20 S30-S25
     13 1585  520 (S40W26 L= 37)  2526    482        2 (1417/ 399-1727/ 645)  13.1 W10-W41 S45-S34
     14  808  285 (S34E39 L=332)   723     99        0 ( 780/ 251- 854/ 326) -90.0 E40-E36 S37-S30
     15  510  283 (S28E67 L=303)  1713    123        2 ( 453/ 254- 559/ 311) -13.0 E76-E62 S31-S25
  

    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