Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  534 1720 (N34E48 L=198)  1330    258        4 ( 503/1671- 577/1773) -52.1 E54-E44 N29-N38
      2  697 1605 (N26E30 L=216)   318     71        1 ( 664/1589- 737/1621)   0.0 E32-E27 N25-N27
      3 1372 1436 (N24W17 L=263)   491     93        1 (1341/1384-1395/1470) -68.2 W14-W18 N20-N26
      4 1316 1421 (N22W13 L=260)   220     61        0 (1299/1392-1338/1446)  56.3 W12-W14 N19-N23
      5  277 1348 (N07E56 L=190)  2344    391        5 ( 185/1289- 374/1388)  15.5 E66-E46 N02-N09
      6 1205 1308 (N13W07 L=254)   272     91        1 (1165/1281-1246/1333) -21.8 W04-W09 N11-N14
      7 1585 1214 (N13W33 L=279)  1402    210        6 (1529/1104-1625/1297) -57.5 W28-W36 N06-N17
      8  384 1188 (S02E43 L=203)   506    126        2 ( 360/1138- 412/1250) -50.2 E45-E40 S05-N01
      9  250 1022 (S13E53 L=193)  1229    321        1 ( 179/ 887- 325/1132)  51.3 E60-E47 S21-S06
     10  185 1051 (S11E61 L=186)   653    192        1 ( 130/1014- 232/1085)  20.0 E67-E55 S13-S09
     11  795  909 (S15E12 L=234)   433    154        1 ( 717/ 861- 852/ 949) -12.5 E17-E08 S17-S13
     12  696  768 (S25E18 L=228)   356    118        1 ( 677/ 703- 720/ 820)  90.0 E19-E16 S28-S21
     13 1620  736 (S14W43 L=289)   888    241        1 (1494/ 688-1707/ 780)  28.1 W34-W49 S18-S10
     14  827  389 (S49E06 L=240)   294     95        1 ( 807/ 345- 846/ 420) -71.6 E07-E04 S52-S46
     15  863  207 (S66W01 L=247)   628     47        1 ( 833/ 186- 897/ 232)   6.3 E03-W06 S67-S63
  

    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