Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1161 1683 (N48W08 L=251)   274     43        0 (1143/1658-1186/1702)  36.9 W06-W10 N45-N49
      2 1299 1645 (N45W20 L=263)   490     96        1 (1254/1619-1346/1666)  12.5 W16-W25 N42-N46
      3 1574 1602 (N43W47 L=290)  2108    281        2 (1435/1565-1689/1633)   0.0 W31-W64 N39-N44
      4  524 1377 (N22E37 L=206)   307     51        1 ( 495/1358- 559/1400)  26.6 E38-E33 N20-N23
      5 1567 1129 (N11W35 L=278)  2363    402        3 (1490/ 949-1621/1299) -76.6 W30-W39 N00-N21
      6  667 1240 (N14E24 L=219)   225     41        0 ( 642/1218- 687/1259)  18.4 E25-E22 N12-N15
      7  809 1207 (N13E14 L=228)   353    122        1 ( 776/1159- 853/1251) -45.0 E16-E11 N09-N15
      8  212 1180 (N07E62 L=181)   396     80        0 ( 196/1134- 222/1215) -45.0 E64-E59 N04-N09
      9  269 1113 (N04E54 L=189)  1395    224        1 ( 242/1000- 309/1208)  90.0 E56-E50 S03-N09
     10 1030 1128 (N09E00 L=242)   425    122        1 (1009/1080-1060/1187) -80.5 E01-W01 N06-N12
     11  860 1001 (N00E10 L=233)   942    206        3 ( 810/ 909- 903/1082)  90.0 E12-E07 S05-N05
     12  207 1019 (S02E60 L=182)   448     40        1 ( 188/ 996- 227/1049)  71.6 E62-E57 S03-N00
     13 1104  732 (S15W06 L=249)  2366    665        3 ( 998/ 485-1231/ 993)  71.6 W00-W12 S32-N01
     14  448  867 (S10E37 L=205)   947    238        0 ( 408/ 780- 520/ 964) -51.3 E40-E32 S15-S04
     15 1650  782 (S10W44 L=286)   377     79        1 (1632/ 738-1681/ 821)  80.5 W42-W46 S13-S07
     16 1737  717 (S14W53 L=296)  1211    153        2 (1700/ 659-1791/ 799) -83.7 W50-W59 S18-S09
     17 1661  648 (S19W48 L=290)   522    129        0 (1620/ 616-1711/ 701) -21.8 W43-W53 S20-S15
     18 1350  276 (S48W37 L=279)   426     38        0 (1320/ 264-1377/ 291)  -8.1 W33-W40 S49-S46
     19  793  246 (S55E19 L=223)  1939    170        3 ( 712/ 221- 892/ 282)   2.7 E30-E08 S58-S51
     20 1045  260 (S51W07 L=250)   501     57        0 (1007/ 242-1079/ 275)   8.1 W03-W10 S53-S49
  

    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