Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1055 1695 (N45W28 L= 75)  1030    177        4 ( 980/1657-1139/1718) -31.0 W20-W33 N42-N48
      2 1389 1566 (N26W41 L= 89)   299     66        1 (1363/1545-1424/1580)   0.0 W38-W44 N24-N27
      3 1598 1459 (N14W50 L= 97)   680    111        1 (1542/1441-1653/1484) -16.7 W45-W55 N12-N15
      4  944 1284 (N24W02 L= 50)   292     71        1 ( 915/1254- 976/1314)  14.0 W00-W04 N22-N25
      5 1867 1192 (S09W64 L=111)   671     84        1 (1840/1160-1905/1209)   0.0 W59-W70 S11-S07
      6  660 1073 (N19E20 L= 27)   697    202        1 ( 589/1004- 731/1145)  18.4 E26-E14 N16-N21
      7 1823 1097 (S13W55 L=103)   402     58        0 (1799/1075-1854/1116)  -8.1 W52-W59 S14-S11
      8  184  997 (N24E64 L=343)  2176    217        3 ( 160/ 907- 234/1109)  76.0 E68-E57 N18-N30
      9  997 1025 (N08E01 L= 46)   300     58        2 ( 968/ 994-1025/1057)  45.0 E03-W00 N06-N09
     10  347  996 (N21E45 L=  2)   989    256        1 ( 235/ 915- 404/1052) -35.5 E56-E41 N15-N25
     11  263  899 (N17E55 L=352)   606     99        1 ( 244/ 861- 284/ 958)  71.6 E58-E53 N14-N20
     12 1764  874 (S24W45 L= 92)   725    147        0 (1727/ 818-1804/ 932)  24.0 W40-W49 S25-S21
     13 1813  816 (S29W50 L= 97)   394     55        1 (1790/ 793-1834/ 848)  21.8 W46-W52 S30-S27
     14  200  768 (N10E67 L=340)   500     73        1 ( 184/ 734- 219/ 807) -78.7 E68-E65 N07-N12
     15 1401  763 (S18W15 L= 62)  1059    357        1 (1237/ 746-1560/ 797) -20.9 W05-W26 S22-S13
     16  858  600 (S13E21 L= 26)   229     63        1 ( 827/ 581- 893/ 613) -14.0 E22-E18 S14-S11
     17  535  441 (S16E50 L=358)   693    168        1 ( 502/ 372- 563/ 516)  42.0 E54-E43 S20-S11
     18  871  479 (S21E25 L= 23)   323     62        1 ( 852/ 452- 897/ 516)  63.4 E26-E23 S22-S18
     19  470  386 (S18E60 L=348)   629     71        2 ( 440/ 356- 509/ 410) -31.0 E63-E55 S20-S16
  

    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