Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1366 1774 (N53W48 L= 53)   945     76        0 (1323/1744-1408/1802)   3.8 W40-W57 N51-N55
      2 1253 1764 (N54W33 L= 38)   467     42        0 (1230/1736-1279/1786)  24.0 W29-W38 N51-N56
      3 1604 1662 (N41W65 L= 69)   756     98        1 (1568/1630-1654/1691) -39.8 W60-W69 N37-N43
      4  360 1537 (N41E60 L=304)   631     97        0 ( 311/1522- 407/1553)   3.8 E69-E53 N39-N42
      5  841 1453 (N33E10 L=354)  1217    261        0 ( 744/1393- 934/1543) -33.7 E18-E03 N28-N40
      6  667 1481 (N36E24 L=340)   419    136        0 ( 644/1423- 703/1535)  66.8 E25-E22 N32-N39
      7  871 1216 (N18E09 L=356)   462    191        2 ( 822/1150- 938/1271)  45.0 E12-E04 N13-N20
      8 1169 1206 (N15W10 L= 15)   208     75        2 (1126/1189-1194/1231) -26.6 W07-W11 N13-N16
      9 1444 1116 (N07W27 L= 32)   233     61        1 (1418/1088-1463/1136)  56.3 W25-W29 N05-N08
     10 1334 1048 (N04W19 L= 24)   204     34        0 (1314/1026-1358/1066)   0.0 W18-W21 N02-N05
     11 1727  848 (S12W48 L= 53)   637    116        1 (1690/ 803-1772/ 891)  33.7 W45-W52 S14-S09
     12  393  512 (S26E54 L=310)  1585    264        0 ( 319/ 431- 456/ 571) -55.0 E63-E50 S32-S21
     13  888  505 (S28E13 L=351)   354     95        1 ( 845/ 491- 950/ 521)   7.1 E16-E08 S28-S26
     14 1221  386 (S40W11 L= 15)   411     86        1 (1185/ 362-1261/ 415)  33.7 W07-W13 S41-S37
     15  525  328 (S41E54 L=311)   548     29        0 ( 502/ 309- 549/ 350) -33.7 E56-E50 S42-S38
  

    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