Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  490 1696 (N21E57 L=237)  2350    231        5 ( 394/1625- 586/1743)  31.6 E63-E48 N15-N25
      2 1427 1556 (N35W12 L=306)   917    165        1 (1348/1506-1494/1587)  -4.8 W05-W17 N33-N37
      3  621 1282 (S02E29 L=265)   285     73        1 ( 580/1254- 653/1306)  -9.5 E32-E26 S02-N00
      4 1697 1226 (N22W37 L=331)   370     72        0 (1685/1185-1709/1267) -78.7 W35-W38 N19-N24
      5 1594 1216 (N18W29 L=323)   592    130        0 (1539/1179-1663/1252)   0.0 W25-W34 N17-N19
      6 1914 1028 (N19W63 L=357)  3118    331        4 (1886/ 887-1942/1182) -76.8 W58-W70 N10-N27
      7  217 1065 (S21E57 L=237)   705    112        0 ( 197/1006- 249/1114)  74.1 E59-E54 S24-S17
      8  836  953 (S16E09 L=285)   367    160        0 ( 815/ 879- 857/1020) -69.4 E09-E06 S19-S11
      9 1856  931 (N11W58 L=352)  1312    188        1 (1830/ 854-1888/1018) -37.9 W52-W63 N07-N14
     10  918  870 (S18E02 L=292)   287    150        0 ( 864/ 850- 977/ 925)  60.3 E05-W00 S20-S13
     11 1745  878 (N04W49 L=342)   390     80        0 (1699/ 856-1783/ 901)  33.7 W44-W51 N01-N06
     12  394  605 (S47E39 L=255)   724    109        0 ( 348/ 573- 442/ 643) -11.3 E44-E33 S48-S45
     13  518  582 (S46E25 L=268)   358     39        1 ( 491/ 555- 538/ 611) -76.0 E28-E23 S47-S43
     14 1609  358 (S26W68 L=  2)  1140    134        2 (1559/ 331-1668/ 400)   5.2 W59-W81 S27-S24
  

    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