Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1709 1306 (N16W52 L=254)   498    160        0 (1645/1246-1753/1361) -53.1 W47-W55 N12-N20
      2 1011 1308 (N22W01 L=203)   413    116        1 ( 981/1285-1057/1348) -45.0 E01-W03 N21-N25
      3 1003 1194 (N15E00 L=202)   271    161        0 ( 926/1182-1077/1201) -12.5 E05-W04 N14-N16
      4 1574 1162 (N09W37 L=239)   246    116        0 (1533/1115-1610/1197) -45.0 W34-W39 N05-N11
      5  202 1089 (N11E63 L=140)   733    142        1 ( 190/1023- 219/1155) -69.4 E64-E60 N07-N15
      6  916  944 (N00E07 L=195)   218     57        0 ( 884/ 929- 950/ 962)  11.3 E09-E04 N00-N01
      7 1420  915 (S05W24 L=226)   797    245        1 (1321/ 887-1522/ 962) -17.1 W18-W31 S06-N00
      8 1718  842 (S12W48 L=250)   462     86        2 (1684/ 815-1759/ 862)   8.1 W44-W51 S13-S11
      9  303  752 (S10E54 L=148)   608    100        3 ( 281/ 699- 334/ 794)  74.1 E56-E50 S13-S06
     10 1331  732 (S16W18 L=220)   265     92        1 (1291/ 701-1375/ 761) -38.7 W15-W20 S17-S13
     11  840  645 (S18E14 L=188)   391    106        2 ( 805/ 619- 896/ 675)  18.4 E16-E10 S19-S16
     12 1467  554 (S29W29 L=231)   346    108        0 (1448/ 507-1485/ 604) -66.8 W27-W31 S32-S25
     13  720  503 (S27E25 L=177)   665    101        2 ( 682/ 464- 768/ 536)  29.7 E28-E21 S30-S24
     14  677  388 (S36E33 L=169)   563    100        1 ( 660/ 330- 707/ 431)  63.4 E36-E29 S40-S32
     15  663  248 (S49E46 L=157)   545     73        0 ( 642/ 225- 697/ 279) -53.1 E50-E41 S51-S45
  

    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