Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  853 1805 (N37E38 L=212)   673    110        1 ( 827/1762- 877/1854) -53.1 E43-E34 N33-N41
      2  914 1669 (N29E25 L=225)   531    134        2 ( 875/1629- 946/1720) -81.9 E27-E23 N25-N32
      3  429 1616 (N15E58 L=192)   592     81        1 ( 404/1586- 450/1660) -71.6 E60-E55 N12-N18
      4  965 1622 (N27E20 L=230)   379    109        0 ( 912/1603-1014/1642)  33.7 E23-E17 N24-N29
      5  550 1541 (N12E43 L=207)   579    191        0 ( 494/1500- 622/1576)  -4.8 E48-E36 N11-N14
      6 1682 1367 (N31W35 L=285)  2103    466        0 (1539/1212-1835/1539) -21.8 W21-W52 N26-N39
      7  676 1071 (S13E21 L=229)   486    170        0 ( 612/1020- 749/1107)  45.0 E24-E17 S16-S09
      8  235 1008 (S24E56 L=194)   531     94        0 ( 216/ 966- 257/1050)  51.3 E58-E53 S26-S21
      9  456  880 (S28E34 L=217)   421    100        1 ( 405/ 846- 499/ 912)  35.5 E37-E30 S30-S25
     10 1353  804 (S11W25 L=275)   425    108        0 (1295/ 785-1406/ 819)  15.9 W21-W28 S12-S09
     11  674  725 (S33E15 L=235)  2200    556        5 ( 465/ 614- 932/ 787)  33.3 E31-W01 S45-S24
     12 1710  652 (S09W56 L=306)   363     40        0 (1690/ 630-1730/ 674)  76.0 W54-W57 S10-S06
     13 1643  432 (S22W65 L=315)   846    147        0 (1584/ 403-1702/ 481)  54.5 W60-W68 S24-S17
     14 1411  461 (S28W43 L=293)   454    161        0 (1339/ 452-1494/ 474)  18.4 W37-W49 S30-S25
     15 1464  286 (S35W64 L=314)  1937    187        1 (1394/ 248-1546/ 318)  17.5 W55-W80 S39-S32
  

    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