Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1481 1435 (N24W29 L= 53)   891    229        2 (1392/1377-1585/1513) -26.6 W22-W36 N20-N28
      2 1262 1454 (N23W13 L= 38)   277    107        0 (1203/1436-1318/1469)  -7.1 W09-W17 N22-N24
      3  351 1406 (N17E49 L=336)   313     80        0 ( 320/1362- 374/1434)  59.0 E50-E47 N14-N19
      4  927 1347 (N15E08 L= 17)   231     75        0 ( 914/1312- 942/1389) -78.7 E08-E06 N12-N17
      5 1329 1170 (N06W18 L= 42)   422    135        1 (1270/1132-1390/1231) -29.7 W13-W21 N03-N09
      6  650 1184 (N04E24 L=  1)   228     74        0 ( 612/1168- 694/1202)   0.0 E26-E20 N02-N04
      7 1041 1129 (N02W00 L= 25)   205     72        0 (1001/1112-1079/1149)  45.0 E01-W02 N00-N03
      8 1939 1097 (N07W71 L= 95)  1269    166        2 (1908/1068-1968/1127) -10.3 W66-W77 N05-N08
      9  486 1074 (S03E34 L=350)   333     55        1 ( 463/1045- 514/1101)  56.3 E35-E32 S04-S01
     10  364  880 (S15E44 L=341)  1032    311        1 ( 269/ 815- 468/ 965)  25.2 E52-E35 S18-S09
     11  788  925 (S11E14 L= 11)   189     88        0 ( 754/ 886- 831/ 944)  31.0 E16-E11 S13-S09
     12 1796  681 (S19W59 L= 84)  3483    609       15 (1732/ 535-1861/ 890)  82.2 W52-W64 S28-S06
     13 1917  827 (S09W71 L= 96)  1751    289        6 (1878/ 779-1955/ 884)  66.8 W65-W78 S12-S05
     14  972  591 (S31E01 L= 23)  2645    612        4 ( 712/ 455-1243/ 747)  30.3 E21-W15 S41-S19
     15  720  670 (S27E19 L=  6)   622    269        2 ( 596/ 595- 809/ 735)  29.4 E28-E12 S32-S22
     16 1729  705 (S19W52 L= 76)   340     59        0 (1705/ 686-1751/ 726)  14.0 W49-W53 S19-S17
     17  314  578 (S34E53 L=331)  1368    218        5 ( 280/ 515- 358/ 636)  69.4 E58-E48 S37-S29
     18  427  605 (S32E42 L=342)   512     83        0 ( 391/ 590- 466/ 627) -18.4 E45-E38 S32-S30
     19 1316  412 (S42W27 L= 52)   590    123        2 (1274/ 364-1363/ 460)  69.4 W23-W29 S45-S37
  

    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