Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  781 1680 (N47E24 L=128)  2765    426        7 ( 651/1608- 929/1727)   9.9 E35-E10 N40-N50
      2 1141 1629 (N44W08 L=160)   544    119        2 (1106/1580-1187/1661)  49.4 W04-W12 N39-N46
      3 1458 1590 (N41W35 L=187)   320     81        0 (1429/1568-1489/1606)  18.4 W31-W37 N39-N42
      4 1554 1538 (N37W42 L=194)   349     80        0 (1520/1523-1585/1554)   9.5 W38-W44 N36-N38
      5  714 1344 (N22E22 L=130)   231     95        0 ( 688/1305- 734/1386) -51.3 E24-E20 N19-N24
      6  784 1321 (N21E17 L=135)   469     83        1 ( 753/1293- 824/1361) -33.7 E19-E13 N19-N23
      7  322 1215 (N12E51 L=101)   585    104        1 ( 297/1163- 345/1260) -39.8 E53-E47 N08-N14
      8  713 1225 (N14E21 L=131)   895    259        5 ( 633/1174- 824/1249)   4.4 E26-E13 N11-N16
      9  819 1178 (N12E13 L=139)   284     53        0 ( 802/1147- 834/1211)  76.0 E14-E12 N10-N14
     10  672 1140 (N09E23 L=129)   727    204        0 ( 612/1096- 765/1200) -24.4 E27-E16 N06-N12
     11 1046  898 (S05W02 L=154)   316    108        0 (1030/ 842-1062/ 955)  90.0 W00-W02 S08-S01
     12  211  791 (S15E62 L= 90)   898    124        1 ( 181/ 756- 236/ 840) -39.8 E65-E58 S17-S12
     13  397  451 (S38E52 L=100)  1602    369        2 ( 341/ 397- 453/ 507)  29.1 E62-E44 S43-S33
     14 1145  381 (S40W12 L=164)  1180    315        3 (1009/ 342-1320/ 426)  13.5 W00-W25 S43-S36
  

    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