Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  729 1496 (N31E24 L=355)   624    190        2 ( 653/1430- 791/1530) -18.4 E30-E18 N27-N33
      2 1467 1481 (N33W32 L= 51)   561     92        4 (1421/1446-1511/1520) -23.2 W28-W35 N31-N36
      3 1612 1496 (N35W46 L= 65)   420     48        1 (1590/1470-1637/1516)  26.6 W43-W49 N32-N36
      4 1097 1434 (N29W03 L= 22)   573    248        0 (1046/1369-1159/1471) -45.0 W00-W07 N24-N31
      5 1207 1414 (N28W11 L= 30)   209     47        1 (1192/1389-1231/1444) -71.6 W09-W12 N26-N29
      6  937 1220 (N14E06 L= 12)   263    113        0 ( 891/1198- 987/1245) -18.4 E09-E03 N13-N15
      7  407  977 (S03E41 L=338)  1302    443        4 ( 355/ 813- 462/1186) -72.3 E46-E36 S13-N09
      8 1654 1045 (N06W42 L= 61)   389    114        1 (1611/1013-1714/1064)  18.4 W38-W47 N03-N07
      9  298  773 (S17E52 L=327)  3500    531       10 ( 246/ 552- 353/ 986)  64.2 E65-E45 S32-S03
     10 1568  878 (S05W36 L= 55)   321     78        2 (1537/ 841-1596/ 896)   0.0 W33-W38 S06-S03
     11  873  792 (S12E08 L= 10)   569    180        1 ( 804/ 725- 913/ 853) -53.1 E12-E05 S16-S08
     12  705  711 (S18E20 L=359)  1828    335       10 ( 624/ 600- 790/ 794) -71.6 E25-E13 S25-S12
     13  469  749 (S17E37 L=342)   306     89        2 ( 440/ 725- 517/ 769)   8.1 E39-E32 S18-S16
     14 1865  734 (S14W71 L= 89)   715     78        1 (1829/ 712-1898/ 757)   4.4 W65-W78 S14-S12
     15 1628  685 (S17W44 L= 63)   426    113        1 (1605/ 634-1655/ 735) -81.9 W42-W46 S20-S13
     16 1155  642 (S21W10 L= 29)   435     85        1 (1115/ 623-1195/ 668)   0.0 W07-W13 S22-S19
     17  890  511 (S31E07 L= 12)  2799    519        7 ( 693/ 417-1058/ 666)  38.7 E23-W04 S39-S19
     18  581  607 (S26E30 L=349)   488    109        0 ( 540/ 576- 640/ 638)  29.1 E33-E24 S28-S23
     19  365  559 (S31E52 L=327)   395     69        0 ( 329/ 543- 404/ 575)  11.3 E56-E46 S32-S29
     20 1373  510 (S29W28 L= 47)   788    192        0 (1280/ 464-1456/ 548)  22.6 W21-W33 S32-S26
  

    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