Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  481 1658 (N37E57 L=342)  1078    105        1 ( 427/1630- 543/1685)  -3.2 E67-E48 N35-N39
      2  593 1541 (N31E38 L=  2)   661     99        2 ( 571/1494- 635/1586) -45.0 E42-E35 N27-N33
      3  929 1415 (N25E10 L= 30)  1236    329        1 ( 835/1342- 979/1536) -72.9 E15-E06 N20-N33
      4 1746 1380 (N30W56 L= 96)  3502    532        2 (1546/1207-1876/1517) -28.7 W37-W69 N19-N38
      5  249 1405 (N18E68 L=332)   634    109        1 ( 229/1351- 265/1442) -32.0 E73-E64 N14-N20
      6  348 1370 (N17E53 L=346)   468     94        0 ( 312/1350- 382/1391)   8.1 E56-E49 N15-N18
      7 1275 1311 (N22W14 L= 54)   449    192        0 (1199/1263-1334/1356)  36.9 W09-W18 N18-N24
      8 1782 1203 (N18W55 L= 95)  1623    398        1 (1721/1062-1832/1332) -73.6 W49-W60 N09-N26
      9 1906 1210 (N19W75 L=115)  1166     79        3 (1885/1163-1924/1249)  68.2 W70-W80 N16-N21
     10 1696 1157 (N15W46 L= 86)   557    173        0 (1656/1116-1745/1235) -36.9 W42-W50 N12-N19
     11 1406 1123 (N11W23 L= 63)   221     59        1 (1375/1102-1434/1145)  36.9 W21-W25 N09-N12
     12  818  727 (S19E11 L= 29)   658    218        0 ( 785/ 637- 882/ 785)  73.3 E12-E06 S24-S14
     13 1724  620 (S18W58 L= 98)   630     79        1 (1693/ 591-1752/ 651)  38.7 W55-W60 S20-S16
     14 1351  580 (S24W27 L= 67)   258    112        0 (1298/ 556-1402/ 604)  33.7 W23-W29 S25-S21
  

    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