Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1364 1615 (N30W42 L=189)  1410    317        3 (1212/1591-1509/1635) -30.1 W31-W52 N24-N35
      2 1695 1450 (N10W57 L=204)   532     89        1 (1668/1415-1730/1480) -68.2 W54-W59 N07-N12
      3 1183 1378 (N22W19 L=166)   482    118        0 (1111/1357-1238/1395) -35.5 W15-W22 N20-N25
      4  196 1216 (N36E62 L= 85)   517     89        1 ( 168/1183- 226/1253)  20.6 E66-E57 N34-N38
      5 1855 1187 (S09W61 L=208)   679     87        1 (1823/1158-1894/1212)   0.0 W56-W67 S09-S07
      6 1855 1078 (S14W57 L=205)  3214    290        8 (1742/ 974-1935/1178)   9.5 W44-W71 S19-S10
      7  621 1076 (N19E23 L=125)  1115    348        0 ( 486/1012- 765/1156) -43.2 E30-E14 N12-N27
      8 1783 1106 (S10W51 L=198)   593    107        1 (1752/1075-1827/1150) -45.0 W48-W54 S12-S07
      9  148  976 (N22E68 L= 79)   612     72        0 ( 123/ 937- 177/1012) -51.3 E72-E63 N19-N24
     10 1909  965 (S23W63 L=210)   914    103        3 (1867/ 939-1943/1009)   4.8 W56-W70 S24-S21
     11 1015  881 (S01E04 L=143)   336     99        1 ( 991/ 838-1049/ 914)  21.8 E06-E01 S02-N01
     12  744  830 (N03E21 L=127)   212     70        1 ( 722/ 802- 764/ 864)  26.6 E22-E18 N01-N04
     13 1773  791 (S28W44 L=191)   711     85        0 (1741/ 750-1802/ 837)  23.2 W40-W47 S30-S26
     14 1451  677 (S24W16 L=163)  1713    380        6 (1353/ 526-1550/ 828)  35.8 W06-W25 S32-S16
     15  942  595 (S15E16 L=131)   526    103        2 ( 904/ 556- 979/ 643)  71.6 E18-E13 S17-S11
     16  602  461 (S16E42 L=105)   445     77        1 ( 584/ 424- 628/ 505)  51.3 E44-E39 S17-S12
     17  771  455 (S20E31 L=116)   302    101        1 ( 753/ 421- 799/ 499)  68.2 E33-E28 S22-S17
     18  696  410 (S21E38 L=109)   369     83        2 ( 676/ 371- 714/ 456)  63.4 E40-E35 S23-S17
     19  851  213 (S39E42 L=105)  1821    190        3 ( 777/ 166- 927/ 273)   6.0 E52-E32 S42-S35
     20 1347  253 (S54E03 L=144)   390     52        0 (1315/ 240-1377/ 265) -38.7 E05-W00 S56-S52
  

    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