Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  974 1913 (N53E39 L=355)   527     57        0 ( 940/1904-1007/1924)   9.5 E42-E34 N51-N55
      2  874 1756 (N35E31 L=  3)  1471    241        3 ( 817/1681- 960/1809) -19.4 E37-E20 N31-N39
      3 1421 1733 (N50W12 L= 45)   631     52        2 (1386/1705-1449/1756)   0.0 W08-W14 N47-N53
      4  563 1613 (N19E45 L=349)   904    271        1 ( 522/1500- 628/1695) -77.9 E48-E41 N11-N25
      5  908 1547 (N21E19 L= 15)   233    105        0 ( 868/1522- 959/1562)  38.7 E20-E15 N18-N22
      6 1703 1387 (N32W39 L= 72)  1559    242        2 (1610/1310-1785/1462) -13.2 W30-W47 N28-N35
      7 1316 1351 (N18W10 L= 44)   374    158        0 (1259/1300-1362/1416) -26.6 W05-W13 N16-N21
      8  860 1131 (S04E12 L= 22)   703    221        1 ( 781/1066- 940/1195)  56.3 E15-E08 S09-N00
      9 1902 1066 (N18W63 L= 97)  1491    128        0 (1877/ 999-1928/1132) -63.4 W59-W68 N14-N22
     10  688  888 (S22E18 L= 16)   368    128        0 ( 673/ 831- 699/ 961) -82.9 E18-E16 S25-S17
     11  250  820 (S33E55 L=339)  1032    230        1 ( 186/ 734- 334/ 890)  28.8 E66-E45 S39-S27
     12  499  834 (S28E30 L=  3)   327    114        0 ( 469/ 783- 521/ 885)  74.1 E32-E29 S31-S24
     13  674  587 (S41E14 L= 20)   424     79        0 ( 630/ 573- 720/ 604)   8.1 E17-E10 S42-S38
     14 1522  461 (S26W51 L= 84)   617    110        0 (1472/ 424-1564/ 508)  -9.5 W44-W56 S27-S25
  

    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