Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  466 1599 (N49E34 L=150)   314     38        0 ( 442/1578- 490/1618) -33.7 E37-E31 N46-N50
      2 1264 1557 (N28W27 L=211)   273     85        0 (1224/1526-1304/1575) -53.1 W24-W28 N25-N29
      3 1722 1421 (N11W55 L=240)   935    127        1 (1661/1380-1779/1455) -36.9 W50-W60 N07-N14
      4  786 1334 (N24E09 L=176)   211     71        0 ( 746/1321- 823/1351) -11.3 E11-E06 N22-N24
      5 1051 1285 (N16W06 L=191)   799    346        0 ( 916/1243-1209/1333) -16.4 E01-W16 N13-N19
      6  281 1132 (N21E48 L=136)   741    185        2 ( 201/1078- 348/1186) -28.1 E57-E42 N16-N24
      7  378 1131 (N19E40 L=145)   600    119        1 ( 343/1077- 424/1174)  51.3 E42-E35 N15-N20
      8  120 1040 (N18E69 L=116)  3855    207        6 (  85/ 930- 166/1125)  65.6 E76-E61 N11-N22
      9  178  975 (N13E61 L=124)   492     83        1 ( 152/ 942- 198/1015)  38.7 E64-E58 N11-N15
     10 1815  957 (S17W53 L=237)   364     66        0 (1796/ 931-1832/ 991) -90.0 W50-W54 S18-S15
     11  380  941 (N08E42 L=143)   349     46        1 ( 351/ 923- 406/ 967)  11.3 E44-E39 N06-N08
     12 1181  928 (S07W07 L=192)   251    122        0 (1128/ 891-1234/ 947)   0.0 W03-W10 S08-S05
     13  529  639 (S12E38 L=146)  2015    547        3 ( 430/ 480- 579/ 894)  46.3 E52-E30 S20-N02
     14  918  750 (S12E11 L=173)   336    145        0 ( 863/ 704- 945/ 813)  39.8 E15-E08 S14-S08
     15 1225  726 (S19W06 L=191)   369    115        1 (1205/ 660-1248/ 768)  74.1 W04-W08 S23-S16
     16  800  693 (S14E19 L=165)   507    134        1 ( 761/ 635- 841/ 730) -74.1 E21-E16 S17-S10
     17  300  635 (S08E57 L=127)   832    147        4 ( 275/ 575- 327/ 711)  45.0 E63-E53 S11-S03
     18 1745  590 (S40W49 L=233)  1821    336        1 (1617/ 498-1875/ 685)  13.1 W35-W65 S44-S36
     19  620  560 (S18E35 L=150)   234     50        1 ( 608/ 530- 639/ 584)  56.3 E36-E33 S19-S16
     20  684  458 (S26E34 L=150)  1080    291        1 ( 551/ 423- 820/ 500)  -2.7 E45-E23 S27-S23
     21 1398  367 (S48W14 L=199)   503     58        1 (1368/ 338-1425/ 396)  36.9 W11-W17 S50-S46
  

    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