Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  559 1716 (N33E49 L=136)   441     33        1 ( 542/1686- 581/1743) -59.0 E51-E46 N30-N35
      2  456 1561 (N21E49 L=136)   519    103        1 ( 411/1524- 486/1604)  68.2 E51-E46 N18-N24
      3  425 1483 (N15E48 L=137)   706    138        2 ( 364/1437- 476/1532)  45.0 E51-E44 N12-N18
      4 1306 1463 (N25W12 L=197)   674    133        3 (1268/1423-1349/1523) -63.4 W09-W15 N22-N29
      5  465 1368 (N08E41 L=144)   402    112        1 ( 416/1354- 514/1388)   0.0 E44-E36 N07-N09
      6 1869 1282 (N24W62 L=247)  1649    219        0 (1764/1213-1938/1344)  -7.1 W49-W74 N21-N26
      7 1374 1304 (N16W18 L=202)   316     80        0 (1331/1280-1415/1330)  -9.5 W14-W20 N14-N16
      8  692 1222 (N02E23 L=162)   480    198        0 ( 616/1188- 774/1254)   5.7 E27-E17 N00-N03
      9 1164 1153 (N03W07 L=191)   264    104        0 (1133/1097-1193/1192) -51.3 W04-W08 N00-N05
     10  810 1043 (S07E13 L=172)   229    105        0 ( 788/ 995- 832/1080) -78.7 E14-E11 S10-S05
     11  948  928 (S13E03 L=181)   192    104        0 ( 935/ 877- 959/ 976) -80.5 E04-E02 S15-S09
     12 1587  862 (S07W38 L=222)   480     80        0 (1559/ 833-1625/ 885)  36.9 W35-W40 S08-S05
     13  870  773 (S23E06 L=178)   557    182        1 ( 802/ 749- 947/ 811)   6.3 E10-E01 S24-S20
     14 1477  698 (S18W34 L=219)   725    280        0 (1351/ 648-1600/ 735)  26.6 W26-W42 S22-S14
  

    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