Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  673 1708 (N24E45 L=240)   869    108        1 ( 627/1677- 731/1735)  -5.2 E50-E39 N21-N25
      2 1349 1613 (N38W02 L=287)  1267    366        3 (1184/1541-1496/1697)   0.0 E11-W14 N36-N40
      3  775 1457 (N11E26 L=259)   812    244        1 ( 706/1370- 845/1558) -25.0 E34-E19 N07-N15
      4  366 1518 (N06E58 L=226)   923    134        3 ( 300/1473- 412/1557)  21.8 E65-E54 N03-N08
      5  214 1278 (S11E63 L=221)   415     79        2 ( 199/1250- 240/1314)  76.0 E65-E59 S12-S08
      6 1621 1241 (N23W30 L=315)   326     89        0 (1578/1214-1662/1269)   0.0 W26-W33 N22-N24
      7  130 1112 (S22E71 L=214)   913    118        1 ( 106/1054- 166/1166)  41.2 E75-E66 S25-S18
      8 1806 1001 (N16W51 L=335)   373     52        1 (1785/ 976-1827/1033) -33.7 W48-W53 N14-N18
      9 1334  979 (S00W18 L=303)   243     58        0 (1303/ 960-1360/1007)  45.0 W16-W19 S01-N01
     10  878  947 (S14E06 L=279)   283     50        1 ( 852/ 920- 907/ 976)  90.0 E07-E04 S16-S12
     11 1888  844 (N11W65 L=350)  1946    179        2 (1854/ 778-1933/ 926) -35.0 W59-W76 N07-N15
     12 1236  794 (S13W18 L=303)   480    161        0 (1193/ 730-1274/ 868) -36.9 W13-W21 S15-S09
     13 1140  714 (S20W16 L=300)   356    122        0 (1076/ 699-1201/ 728)  14.0 W11-W19 S21-S18
     14 1845  703 (N02W67 L=352)   763     70        0 (1806/ 682-1880/ 725)  16.7 W62-W72 N00-N04
     15  275  654 (S48E53 L=232)   488     62        0 ( 242/ 641- 313/ 670)   4.8 E58-E46 S49-S46
     16 1044  640 (S27W13 L=298)   448    160        2 ( 964/ 605-1110/ 663)  11.3 W07-W17 S28-S25
     17 1546  497 (S19W51 L=336)  1238    265        2 (1430/ 422-1658/ 539)  45.0 W45-W58 S25-S13
     18  722  461 (S48E02 L=283)   449     43        1 ( 686/ 438- 752/ 486)   0.0 E05-W01 S49-S46
     19 1002  370 (S44W23 L=308)   409     81        1 ( 964/ 345-1051/ 400)  -6.3 W19-W28 S45-S42
     20 1496  301 (S30W64 L=349)   708    121        2 (1452/ 269-1536/ 347)   3.6 W56-W73 S31-S28
  

    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