Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1255 1694 (N42W11 L=341)   460     98        0 (1209/1664-1302/1717) -23.2 W07-W14 N39-N43
      2 1523 1601 (N38W33 L=  3)  1675    252        2 (1421/1532-1617/1648) -10.6 W24-W40 N33-N40
      3  430 1569 (N26E50 L=280)   370     77        1 ( 394/1543- 467/1584)  -7.1 E54-E46 N23-N26
      4  604 1518 (N23E33 L=297)   543    134        1 ( 575/1465- 635/1568) -74.1 E36-E29 N19-N26
      5  449 1517 (N22E46 L=284)   564    107        0 ( 407/1502- 507/1542)  -5.7 E50-E40 N20-N23
      6  999 1354 (N15E04 L=326)   659    182        0 ( 925/1294-1056/1389) -26.6 E08-W00 N11-N16
      7 1232 1365 (N17W10 L=340)   310    139        0 (1164/1339-1299/1389)  -6.3 W05-W14 N16-N18
      8  762 1304 (N10E18 L=311)   616    155        0 ( 717/1259- 826/1366) -36.9 E21-E13 N07-N13
      9 1855 1288 (N21W62 L= 31)  2035    146        3 (1811/1219-1892/1358) -69.4 W56-W67 N16-N24
     10 1105 1059 (S02W04 L=334)   880    220        1 (1054/ 956-1176/1141)  65.6 W02-W08 S08-N03
     11 1438 1002 (S03W26 L=355)   315     83        0 (1414/ 962-1471/1030)  59.0 W24-W27 S05-N00
     12 1401  718 (S20W27 L=357)   236    116        0 (1337/ 699-1449/ 742)  29.7 W23-W30 S21-S17
     13  754  583 (S34E15 L=315)  1743    373        3 ( 617/ 489- 883/ 719)  41.8 E27-E06 S41-S24
     14  388  612 (S35E47 L=283)   368     64        1 ( 353/ 596- 428/ 632)  14.0 E50-E42 S35-S33
     15 1413  341 (S44W44 L= 14)   303     32        0 (1394/ 324-1430/ 363)  90.0 W41-W47 S45-S42
  

    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