Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  717 1561 (N24E28 L=171)   274     82        0 ( 696/1530- 743/1596) -45.0 E30-E25 N21-N25
      2  322 1525 (N18E60 L=138)  2725    166        7 ( 251/1465- 381/1589)  28.6 E67-E54 N14-N22
      3 1080 1515 (N25E03 L=196)   782    142        4 (1038/1447-1107/1573) -63.4 E06-E01 N20-N28
      4  334 1428 (N12E54 L=145)   816     89        2 ( 299/1395- 366/1455)  53.1 E58-E50 N09-N13
      5 1757 1290 (N22W48 L=247)  2342    376        2 (1601/1155-1853/1402) -23.5 W34-W58 N15-N26
      6 1155 1357 (N16W04 L=202)   418     99        1 (1100/1327-1204/1382)   0.0 W00-W06 N14-N17
      7  518 1240 (N01E34 L=164)   544    206        0 ( 436/1209- 569/1277)  12.5 E40-E30 N00-N03
      8  922 1199 (N03E08 L=191)   405    132        1 ( 879/1139- 961/1244) -39.8 E11-E05 N00-N05
      9  382 1123 (S07E43 L=156)   245     87        0 ( 355/1087- 421/1146)  36.9 E44-E40 S08-S04
     10 1361  911 (S08W22 L=220)   277     66        0 (1340/ 886-1387/ 943) -33.7 W20-W23 S08-S06
     11  784  868 (S18E13 L=186)   185     61        1 ( 757/ 840- 811/ 894)  71.6 E14-E11 S19-S16
     12  669  803 (S23E20 L=179)   518    157        1 ( 608/ 774- 738/ 831)  -6.3 E24-E15 S24-S21
     13 1294  749 (S18W21 L=219)   731    290        1 (1157/ 700-1418/ 791)  28.1 W12-W27 S22-S14
     14 1684  416 (S31W70 L=269)  2407    243        0 (1592/ 366-1789/ 495)  38.7 W62-W78 S35-S23
  

    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