Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  535 1779 (N60E46 L=203)   992    132        0 ( 466/1767- 596/1795)   0.0 E62-E35 N57-N61
      2 1699 1608 (N28W65 L=314)  2150    150        6 (1646/1549-1744/1650) -82.9 W59-W75 N23-N31
      3 1360 1564 (N29W30 L=279)   822    168        1 (1294/1491-1420/1621) -68.2 W27-W33 N23-N33
      4  973 1458 (N26W02 L=250)   282     84        0 ( 934/1437-1019/1476) -36.9 W00-W04 N24-N27
      5 1697 1451 (N18W54 L=303)   373     46        0 (1669/1426-1719/1470) -26.6 W51-W55 N16-N19
      6 1639  911 (S14W39 L=287)   331     82        1 (1609/ 880-1656/ 955)  45.0 W36-W40 S15-S11
      7 1791  619 (S34W60 L=308)   601     61        1 (1769/ 592-1825/ 651) -20.0 W55-W66 S35-S31
      8 1546  594 (S33W33 L=282)   410     88        0 (1516/ 563-1564/ 640) -80.5 W30-W34 S35-S29
      9  303  508 (S24E66 L=182)   694    103        1 ( 256/ 483- 341/ 537)   6.0 E77-E58 S24-S22
     10  974  473 (S35E11 L=238)   504    138        1 ( 949/ 420-1012/ 534) -90.0 E11-E08 S38-S30
     11 1392  447 (S42W21 L=270)   335    105        0 (1343/ 409-1436/ 482)  35.5 W17-W24 S44-S39
     12  966  243 (S53E20 L=229)   382     51        0 ( 941/ 219- 986/ 270)  51.3 E23-E17 S55-S50
     13  808  169 (S57E45 L=204)   826     83        0 ( 775/ 139- 834/ 208)  13.2 E55-E38 S60-S53
  

    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