Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  886 1864 (N42E45 L=148)   921    122        1 ( 837/1829- 946/1893)  11.3 E52-E37 N39-N44
      2  596 1674 (N20E49 L=144)   518    109        1 ( 561/1646- 639/1698)  -6.3 E53-E44 N17-N21
      3 1164 1622 (N32E10 L=183)  1067    178        3 (1105/1526-1212/1688) -33.7 E16-E04 N26-N36
      4  817 1544 (N17E28 L=166)   611    156        1 ( 771/1499- 880/1604) -18.4 E31-E22 N15-N20
      5  742 1490 (N12E30 L=163)   507    152        1 ( 696/1437- 801/1553) -21.8 E34-E24 N10-N14
      6 1583 1283 (N24W26 L=220)   900    241        0 (1541/1195-1606/1386) -76.0 W21-W28 N17-N29
      7 1750 1277 (N30W41 L=234)   774    140        2 (1709/1203-1778/1328) -56.3 W36-W44 N26-N33
      8  433 1300 (S06E44 L=149)   292     79        0 ( 413/1265- 458/1326)  76.0 E45-E42 S08-S04
      9 1026 1260 (N06E06 L=187)   553    148        0 ( 983/1206-1092/1303)  60.3 E07-E03 N02-N09
     10  528 1223 (S08E35 L=159)   434    130        0 ( 485/1174- 556/1275)  74.1 E36-E33 S11-S04
     11 1594 1101 (N14W31 L=224)   257     42        0 (1574/1076-1612/1126) -56.3 W29-W32 N12-N15
     12 1072  906 (S12W06 L=199)   220     38        0 (1052/ 882-1094/ 931) -33.7 W04-W07 S12-S10
     13  191  861 (S37E62 L=131)   821    130        0 ( 144/ 827- 242/ 902)  18.4 E72-E54 S39-S33
     14 1013  661 (S27W10 L=204)   380     78        1 ( 974/ 640-1051/ 684)   9.5 W07-W13 S28-S25
     15 1493  342 (S29W61 L=254)  1004    142        0 (1440/ 323-1572/ 368)  31.0 W54-W67 S30-S24
  

    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