Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1282 1511 (N26W31 L=316)   943    223        1 (1178/1490-1393/1533) -24.8 W24-W37 N22-N29
      2 1015 1458 (N31W12 L=297)   421     98        0 ( 964/1429-1060/1487)   0.0 W08-W16 N30-N32
      3  923 1236 (N21E00 L=285)  1185    382        3 ( 782/1165-1081/1275)  -6.0 E10-W09 N17-N23
      4 1279 1190 (N09W19 L=303)   227     81        0 (1239/1159-1313/1219) -68.2 W17-W19 N06-N11
      5  182 1127 (N32E63 L=222)  1336    186        2 ( 137/1082- 227/1173) -31.0 E69-E55 N28-N34
      6 1921 1119 (S16W68 L=353)   917     90        0 (1875/1101-1958/1146)  -9.0 W60-W79 S17-S13
      7  790 1016 (N12E13 L=271)   986    233        1 ( 750/ 917- 837/1123)  85.9 E14-E11 N05-N19
      8 1658 1008 (S12W37 L=322)   261     63        0 (1632/ 975-1680/1040)  21.8 W34-W39 S13-S10
      9 1778  885 (S23W45 L=330)  1193    299        1 (1732/ 757-1833/1027)  47.3 W39-W53 S29-S16
     10 1662  913 (S17W36 L=320)   374     58        0 (1640/ 885-1692/ 939)  26.6 W33-W38 S19-S15
     11  498  762 (N05E38 L=247)  1847    409        5 ( 391/ 601- 617/ 864)  20.0 E51-E28 S03-N09
     12 1633  712 (S29W30 L=315)   341     68        1 (1606/ 685-1659/ 740)  11.3 W27-W32 S30-S26
     13 1313  653 (S22W07 L=291)   896    150        2 (1267/ 579-1367/ 713)  36.9 W02-W10 S25-S18
     14  847  579 (S14E22 L=262)   663    164        2 ( 777/ 543- 936/ 602) -10.3 E27-E16 S15-S11
     15  343  552 (S05E59 L=225)  1057    148        3 ( 299/ 514- 417/ 598) -29.1 E63-E53 S07-S01
     16  884  466 (S22E24 L=260)   696    198        1 ( 810/ 415- 948/ 528)   0.0 E28-E18 S24-S18
     17 1237  490 (S30E02 L=282)   311     24        1 (1210/ 470-1263/ 511) -14.0 E04-W00 S31-S28
     18  439  430 (S14E58 L=227)  3521    235        3 ( 360/ 354- 521/ 498)  -3.2 E67-E47 S19-S09
     19 1053  225 (S44E28 L=257)  1299    148        2 (1001/ 183-1101/ 278)  18.4 E35-E20 S47-S40
  

    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