Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1630 1626 (N22W64 L=251)   523     76        0 (1590/1605-1662/1642) -11.3 W58-W69 N20-N22
      2 1591 1527 (N18W53 L=240)   491    104        0 (1537/1506-1644/1550) -35.5 W49-W56 N15-N20
      3 1645 1455 (N13W53 L=240)   362     28        0 (1628/1430-1664/1478) -90.0 W51-W55 N11-N14
      4 1701 1373 (N07W53 L=240)   292     42        0 (1672/1354-1723/1391) -45.0 W51-W55 N05-N08
      5  943 1352 (N27W04 L=191)   714    219        0 ( 844/1323-1056/1373) -32.5 E02-W10 N23-N30
      6  527 1191 (N28E27 L=159)   282     75        1 ( 493/1168- 572/1205)   0.0 E29-E23 N27-N29
      7 1210 1174 (N10W14 L=201)   320     53        1 (1181/1144-1234/1202)  71.6 W12-W15 N08-N11
      8 1541 1139 (S01W33 L=220)   355     92        0 (1522/1093-1557/1188)  78.7 W31-W34 S03-N02
      9 1859 1065 (S15W58 L=244)  1308    155        3 (1819/1014-1910/1119)  32.0 W52-W65 S18-S12
     10  202  892 (N16E62 L=125)  1512    261        4 ( 146/ 787- 299/ 989) -42.9 E68-E53 N09-N22
     11 1795  835 (S26W47 L=234)   615    116        1 (1775/ 780-1811/ 892) -77.5 W45-W48 S30-S21
     12 1487  869 (S14W23 L=209)   273     79        2 (1439/ 842-1515/ 891) -11.3 W19-W24 S15-S12
     13 1512  750 (S22W22 L=209)   489    133        0 (1461/ 705-1551/ 811)  29.7 W18-W25 S23-S18
     14  439  475 (S12E54 L=132)  6302      0       24 ( 172/ 240- 662/ 743) -67.7 E74-E46 S32-N07
     15  900  386 (S28E26 L=160)  2347    370        2 ( 833/ 237- 964/ 555)  41.0 E40-E16 S37-S17
     16 1138  493 (S27E08 L=179)   461    122        0 (1097/ 452-1191/ 544)  18.4 E11-E02 S28-S24
     17 1266  496 (S30W00 L=187)   243     55        1 (1248/ 463-1287/ 525)  45.0 E01-W02 S32-S28
     18 1684  489 (S47W36 L=223)   988     66        2 (1639/ 471-1722/ 517) -10.3 W30-W43 S50-S44
     19 1076  365 (S34E16 L=170)   286     58        0 (1065/ 333-1089/ 402)  51.3 E18-E14 S36-S31
  

    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