Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  973 1708 (N33E22 L=313)   706    118        3 ( 918/1656-1024/1747) -10.3 E27-E16 N29-N35
      2 1000 1479 (N18E12 L=323)   256     75        0 ( 964/1465-1049/1495)  11.3 E14-E09 N16-N18
      3 1350 1230 (N12W14 L=349)   238     50        2 (1321/1208-1368/1257)  90.0 W11-W14 N10-N13
      4 1812 1236 (N26W49 L= 24)   332     30        1 (1793/1211-1831/1257) -33.7 W46-W50 N25-N27
      5  299 1165 (S13E51 L=285)   273     49        1 ( 287/1135- 314/1195)  90.0 E51-E49 S15-S11
      6 1159 1153 (N03W04 L=340)   589    253        0 (1030/1127-1268/1186)  32.5 E02-W09 N00-N07
      7  452 1124 (S13E37 L=298)   296     58        0 ( 435/1083- 466/1156)  90.0 E38-E35 S15-S11
      8  353  957 (S25E43 L=292)   693    142        1 ( 281/ 910- 404/1002)   0.0 E49-E37 S26-S21
      9 1928  936 (N13W68 L= 43)   962    114        0 (1916/ 873-1942/ 992) -74.1 W65-W70 N09-N16
     10 1673  840 (S01W44 L= 19)   536    118        1 (1618/ 824-1739/ 862)  11.3 W39-W49 S02-N01
     11  248  668 (S45E58 L=277)  1413    170        4 ( 184/ 631- 328/ 716)  -5.4 E70-E47 S46-S41
     12 1602  654 (S12W46 L= 21)   280     62        0 (1570/ 632-1625/ 675)  45.0 W44-W47 S14-S10
     13 1311  570 (S25W30 L=  5)   585    111        1 (1265/ 550-1372/ 602)   0.0 W26-W34 S26-S23
     14 1667  469 (S20W63 L= 38)  1032    129        1 (1599/ 445-1735/ 494)  26.6 W57-W69 S22-S16
     15 1453  404 (S30W49 L= 25)  1001    140        2 (1385/ 366-1522/ 444)  49.4 W45-W52 S33-S26
  

    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