Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  370 1580 (N15E61 L=221)  3065    233        6 ( 285/1510- 423/1665)  80.5 E68-E54 N09-N21
      2 1157 1593 (N30E05 L=278)   380    126        0 (1120/1542-1200/1649)  77.5 E06-E03 N26-N35
      3 1308 1562 (N32W06 L=288)   704    184        0 (1257/1470-1353/1636) -48.0 W01-W10 N26-N36
      4  708 1519 (N16E30 L=252)   834    167        2 ( 669/1478- 778/1592) -28.6 E35-E24 N13-N20
      5 1387 1212 (N12W17 L=300)   642    194        0 (1353/1131-1428/1305) -84.8 W15-W18 N06-N17
      6 1532 1191 (N14W27 L=309)   430    167        0 (1513/1121-1550/1265) -77.5 W25-W29 N09-N18
      7  208 1206 (S10E62 L=220)   446     76        1 ( 193/1161- 224/1246) -51.3 E64-E59 S12-S07
      8 1717 1045 (N10W43 L=326)   839    156        1 (1668/ 979-1752/1112)  71.6 W40-W45 N05-N14
      9 1418 1011 (N01W23 L=305)   457    154        1 (1358/ 963-1479/1070) -12.5 W18-W27 S01-N02
     10 1877  975 (N11W61 L=343)   616     87        1 (1847/ 931-1899/1009) -31.0 W57-W64 N09-N13
     11 1242  840 (S13W17 L=299)   186    115        0 (1198/ 812-1296/ 859)  45.0 W14-W19 S15-S10
     12 1432  668 (S18W34 L=316)   413    103        1 (1391/ 639-1475/ 704)  63.4 W31-W35 S20-S14
     13 1601  575 (S18W50 L=332)   512    124        0 (1535/ 540-1653/ 605)  49.4 W46-W53 S22-S15
     14 1242  524 (S31W27 L=309)   393     88        1 (1189/ 496-1283/ 548)  45.0 W24-W29 S33-S28
     15 1378  348 (S38W48 L=330)   430     82        0 (1344/ 335-1424/ 370)  14.0 W43-W52 S39-S36
  

    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