Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  561 1607 (N15E47 L=281)   397     98        0 ( 546/1565- 577/1647) -59.0 E48-E44 N12-N17
      2 1300 1536 (N31W01 L=329)   411     99        1 (1256/1504-1352/1557)   0.0 E01-W05 N29-N32
      3 1702 1508 (N46W35 L=  2)   834    110        3 (1677/1457-1721/1549)  77.5 W32-W37 N41-N50
      4 1535 1418 (N31W20 L=348)   335     75        1 (1507/1384-1565/1461) -31.0 W17-W23 N29-N33
      5  519 1386 (N01E40 L=287)   690    174        2 ( 493/1312- 563/1453) -36.9 E44-E34 S02-N04
      6  706 1377 (N05E28 L=300)   339    115        1 ( 659/1336- 750/1399)   0.0 E30-E24 N02-N05
      7  274 1206 (S14E54 L=273)  1907    416        3 ( 159/1177- 392/1228)   9.5 E67-E43 S16-S12
      8 1827  981 (N16W53 L= 21)   625     87        0 (1807/ 922-1841/1025) -71.6 W50-W55 N12-N18
      9  833  860 (S21E06 L=321)   269     91        0 ( 819/ 816- 848/ 919) -56.3 E08-E04 S23-S17
     10 1764  834 (N06W52 L= 20)   809    183        0 (1723/ 795-1816/ 896)  -9.5 W46-W58 N04-N07
     11 1515  685 (S10W39 L=  7)   331     72        3 (1483/ 660-1540/ 708)  33.7 W36-W41 S11-S08
     12 1605  613 (S11W49 L= 16)   660    195        1 (1543/ 567-1646/ 699) -76.0 W45-W51 S15-S06
     13 1693  618 (S08W56 L= 23)   325     50        0 (1674/ 583-1714/ 644) -71.6 W54-W57 S09-S05
     14  995  565 (S33W13 L=340)  1305    271        3 ( 860/ 525-1111/ 629)  45.0 W04-W18 S38-S26
     15 1439  412 (S27W48 L= 15)  1902    414        2 (1312/ 332-1539/ 492)   0.0 W35-W60 S28-S24
  

    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