Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1370 1562 (N37W06 L= 82)  2423    528        2 (1288/1333-1485/1771) -50.8 E06-W18 N25-N52
      2  374 1637 (N15E68 L=  8)  3230    173       10 ( 312/1585- 447/1696)  30.3 E81-E59 N10-N18
      3  725 1517 (N15E32 L= 44)   477    157        0 ( 669/1475- 757/1546)   9.5 E34-E28 N11-N16
      4 1179 1484 (N25E04 L= 72)   423    171        0 (1119/1422-1239/1526) -18.4 E08-W01 N23-N26
      5  463 1439 (N04E46 L= 30)   335     55        0 ( 430/1426- 498/1455)  26.6 E48-E43 N02-N05
      6 1616 1296 (N27W29 L=105)   289     58        0 (1593/1271-1643/1324) -26.6 W27-W31 N26-N28
      7  402 1268 (S07E45 L= 31)   565    133        2 ( 379/1198- 419/1318) -66.8 E47-E42 S10-S03
      8 1710 1223 (N26W38 L=114)   904    192        1 (1646/1168-1746/1302)  73.3 W33-W41 N21-N32
      9  263 1173 (S15E55 L= 21)   321     43        1 ( 237/1143- 280/1199) -45.0 E57-E52 S16-S13
     10  956 1095 (S03E06 L= 70)   224     30        0 ( 934/1072- 975/1120) -45.0 E06-E04 S04-S01
     11  104 1038 (S25E77 L=359)  1394     88        2 (  76/1002- 141/1066)  13.2 E89-E68 S27-S23
     12  933  952 (S12E03 L= 73)   510    152        1 ( 860/ 911- 980/ 999)  58.0 E06-E01 S15-S07
     13  512  977 (S21E30 L= 46)   237     56        0 ( 480/ 953- 534/ 996) -11.3 E32-E27 S21-S19
     14 1594  780 (S02W41 L=116)  1484    295        3 (1559/ 623-1662/ 900) -49.8 W35-W47 S10-N03
     15 1785  785 (N04W56 L=132)  1731    231        5 (1747/ 686-1832/ 882) -59.0 W51-W62 S01-N09
  

    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