Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  860 1817 (N52E35 L=223)   503     75        2 ( 822/1800- 903/1835)  38.7 E37-E31 N49-N54
      2  458 1465 (N19E47 L=210)   485    108        1 ( 431/1420- 480/1499) -38.7 E49-E44 N16-N21
      3  674 1432 (N20E29 L=228)   482     97        1 ( 648/1379- 711/1472)  90.0 E30-E27 N16-N23
      4  616 1227 (N07E28 L=229)  1287    355        2 ( 550/1076- 710/1359) -39.1 E35-E19 S01-N13
      5 1356 1234 (N18W18 L=275)   304    102        0 (1305/1190-1396/1263) -23.2 W14-W21 N15-N19
      6 1096 1211 (N12W02 L=259)   668    189        3 ( 984/1176-1174/1248)   0.0 E05-W06 N11-N14
      7 1191  964 (S01W11 L=268)  1211    313        1 (1124/ 835-1293/1097) -57.3 W06-W19 S07-N07
      8  286 1006 (S11E51 L=206)   905    151        1 ( 267/ 926- 303/1082) -71.6 E52-E48 S15-S06
      9  649  916 (S11E22 L=235)   537    142        4 ( 593/ 896- 731/ 937)  12.5 E25-E16 S12-S10
     10  215  887 (S20E58 L=199)   408     98        1 ( 188/ 852- 246/ 924) -33.7 E60-E54 S21-S17
     11  924  852 (S11E04 L=253)   502    192        0 ( 887/ 773-1008/ 905)  63.4 E05-W00 S16-S07
     12 1274  711 (S15W20 L=277)  1156    236        4 (1198/ 594-1348/ 808)  74.1 W17-W23 S23-S08
     13 1092  529 (S30W12 L=270)   549    127        1 (1033/ 505-1163/ 556)  18.4 W08-W17 S32-S27
  

    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