Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  826 1506 (N41E02 L=254)   325     80        0 ( 788/1491- 871/1522)   0.0 E05-W01 N39-N42
      2  918 1425 (N33W03 L=259)   581    106        1 ( 875/1381- 960/1469) -60.3 W00-W05 N29-N36
      3 1649 1380 (N12W50 L=306)   300     98        0 (1608/1354-1687/1401) -45.0 W47-W52 N09-N14
      4  969 1300 (N24W03 L=259)   198     30        0 ( 952/1275- 990/1324)  56.3 W01-W04 N22-N25
      5 1340 1238 (N12W24 L=280)   222     73        2 (1306/1219-1364/1272) -45.0 W21-W25 N10-N14
      6  370 1123 (N25E42 L=214)  3911    755        5 ( 158/1013- 575/1254) -27.8 E63-E27 N15-N35
      7 1662 1098 (S04W42 L=298)   339     63        1 (1636/1072-1689/1127) -53.1 W40-W43 S05-S01
      8 1694  870 (S18W40 L=296)  1987    335        2 (1604/ 745-1746/1043)  43.0 W31-W47 S24-S08
      9  662  970 (N11E23 L=233)   306     76        0 ( 622/ 948- 701/ 986) -11.3 E25-E20 N09-N12
     10  793  929 (N06E16 L=241)   436     63        2 ( 757/ 902- 830/ 959)   0.0 E17-E13 N04-N08
     11  778  730 (S05E21 L=236)   548    172        0 ( 693/ 697- 862/ 759)   0.0 E26-E15 S06-S04
     12 1170  587 (S22E01 L=256)   323     73        0 (1140/ 549-1194/ 613) -78.7 E02-W00 S25-S20
     13 1520  487 (S39W23 L=279)   433     64        0 (1488/ 459-1553/ 517)  21.8 W19-W25 S41-S37
     14  538  390 (S23E50 L=207)   468     86        0 ( 506/ 351- 581/ 427) -80.5 E52-E48 S26-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